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ABSTRACT 


The  theory,  algorithms,  and  operation  of  a  continuous¬ 
time,  linear  control  system  design  computer  program  is 
presented.  The  program,  LCS-CAD,  was  developed  to 

demonstrate  automated  transfer  function  block  manipulation 
in  conjunction  with  such  classical  control  design 
techniques  as  Bode,  Nyquist,  single  and  two-parameter  root 
locus,  and  time  domain  response.  Both  numeric  data  and 
high-resolution  graphs  are  available  to  the  user.  The 
software,  which  is  completely  Interactive  and  menu  driven, 
is  written  in  structured  Pascal  to  be  run  on  the  IBM-PC 
microcomputer . 
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I.  LINEAR  CONTROL  SYSTEM  COMPUTER 
AIDED  DESIGN  (LCS-CAD) 

A.  INTRODUCTION  TO  LCS-CAD 

LCS-CAD  is  a  software  tool  to  aid  in  the  analysis  and 
design  of  continuous-time,  linear  control  systems.  It  was 
designed  to  allow  a  user  who  is  familiar  with  the 
"classical"  design  tools,  such  as  Bode,  Nyquist,  and  root 
locus,  to  apply  these  methods  while  eliminating  much  of  the 
tedium . 

The  software  system  is  compJetely  menu-driven  and 
attempts  to  be  user-friendly  in  a  number  of  ways.  First, 
the  hierarchical  menu  structure  is  only  two  levels  deep  at 
an’-  point  so  the  user  will  not  become  "lost"  in  the 
jrogram.  Second,  user  inputs  are  systematically  verified 
and  validated.  Third,  the  user  has  access  to  a  powerful 
"change"  facility  that  allows  erroneous  system  information 
to  be  changed  easily.  Finally,  the  program  makes  use  of 
the  concept  of  "transfer  function  blocks"  for  data  entry 
and  manipulation. 

B.  LINEAR  CONTROL  SYSTEMS  AND  BLOCK  DIAGRAMS 

The  behavior  of  many  physical  systems  can  be  described 


by  linear  differential  equations,  or  at  least  approximated 
this  way.  Of  these,  many  may  be  described  as  single-input, 
single-output  systems.  For  example,  simple  electrical 


circuits  are  often  modelled  as  linear  systems  with  single 
inputs,  say  Vi  n ,  and  a  single  output,  Vout  .  It  is  possible 
to  think  of  these  systems  as  "black  boxes"  being  acted  on 
by  an  input  and  producing  an  output.  Inside  these  boxes, 
then,  would  be  a  function  to  translate  the  input  "signal" 
to  the  output.  This  so  called  "transfer  function"  is  very 
convenient  when  dealing  with  system  models. 

After  the  differential  equations  for  a  linear,  time- 
invariant  system  with  zero  initial  conditions  are 
determined,  the  Laplace  transform  can  be  applied  yielding 
algebraic  equations  in  the  complex  variable  "s".  After 
some  manipulation,  the  equations  can  be  written  as  a  ratio 
of  output  to  input.  This  is  the  standard  transfer  function 
form. 

Unfortunately,  very  large  systems  can  have  extremely 
complex  transfer  functions  which  are  difficult  to  work 
with.  Often,  however,  such  problems  can  be  divided  into 
smaller  sub-problems,  and  these  sub-problems  can  be 
modelled  as  independent  transfer  function  blocks .  The 
blocks  can  then  be  analyzed  separately,  if  necessary,  and 
later  recombined  for  overall  system  analysis. 
Recombination,  or  reduction,  of  transfer  function  blocks  is 
done  in  accordance  with  the  rules  of  "bl ock  diagram 


algebra",  or  alternatively,  by  applying  "Mason’s  rule".* 

LCS-CAD  is  a  loop-based  system.  That  is,  the  program 
operates  on  a  single  path  or  closed  loop  at  a  time.  This 
simplifies  the  computations  required  to  automatically 
reduce  the  loop’s  blocks  to  single  equivalent  block 
transfer  function.  Since  the  reduction  is  done 
automatically,  the  user  is  free  to  concentrate  on  analysis 
and  design  and  not  the  tedious  process  of  manipulating 
block  transfer  functions. 

C .  PROGRAM  FEATURES 

LCS-CAD  is  a  large  program  and  requires  at  least  256K 
of  memory  to  run.  It  will  run  on  any  IBM-PC  or  compatible 
"MS-DOS"  computer  and  requires  a  standard  IBM  Color 
Graphics  Adapter  (CGA).  It  will  run  on  either  monochrome 
or  color  monitor,  but  the  menus  are  color  coded  and  are 
easier  to  work  with  if  a  color  monitor  is  available.  The 
graphics  are  in  high-resolution  (640x200)  mode  and  only 
appear  in  white-on-black.  The  graphics  can  be  dumped  to  an 
IBM-Graphics ,  Epson,  or  compatible  printer. 

The  program  is  written  in  Turbo  Pascal  (tm)  and,  due  to 
its  limitation  to  64K  code  and  data  segment  sizes,  LCS-CAD 
was  compiled  as  a  single  main  executable  program  and  six 
"chain"  files.  The  chain  files  are  essentially  programs 
compiled  without  a  run-time  support  module.  They, 

1  These  block  reduction  techniques  are  described  i 
detail  in  virtually  all  elementary  control  theory  textbooks 


therefore,  are  not  themselves  executable.  These  program 
modules  include: 

(1)  CAD.COM  {the  executable  main  module} 

(2)  INPUT. CHN  {the  input  and  change  routines} 

(3)  FREQ. CHN  {Bode  and  Nyquist  modules} 

(4)  TIMERESP.CHN  {the  time  response  simulation  module} 

(5)  TWOPARAM.CHN  {the  two  parameter  root  locus  module} 

(6)  UTILMENU.CHN  {the  utilities  menu  and  routines} 

(7)  HELPMENU . CHN  {the  help  menu  and  all  help  screens} 

In  addition  to  these  files,  there  are  two  additional 
"system"  files  needed  to  run  the  program,  4x6. FON,  and 
ERROR. MSG.  The  .FON  file  is  a  graphics  lettering  font  used 
by  the  graphics  routines  to  print  letters  and  numbers  on¬ 
screen.  The  ERROR. MSG  file  is  a  Turbo  Pascal  file 
containing  various  error  messages. 

The  next  chapter  presents  a  detailed  example  using  the 
LCS-CAD  program  to  analyze  and  design  a  controller  for  a 
simple  motor.  From  that  discussion,  many  of  the  features 
of  the  program  can  be  examined.  The  third  chapter  details 
each  individual  program  module  and  outlines  the  theory  and 
algorithms  used  to  construct  the  LCS-CAD  program.  Chapter 
Four  summarizes  the  work  done  already  in  LCS-CAD  and 
proposes  additions  and  further  work  which  would  make  the 
program  more  useful  and  versatile. 


I I .  COMPUTER-AIDED  SYSTEM  DESIGN  STEPS 

A.  DEVELOPING  A  MODEL 

The  first  step  ir.  the  successful  design  of  a  linear 
system  is  to  formulate  a  mathematical  model  which  describes 
the  system.  Once  modelled,  the  system  can  be  analyzed  and 
a  suitable  control  system  can  be  designed. 

Consider,  for  example  the  simple  armature  controlled  dc 
motor  driving  a  load  as  shown  in  Figure  2-1.  The  left  side 
of  the  figure  shows  the  armature  circuit  including  its 
resistive  and  inductive  components.  The  mathematical  model 
for  this  part  of  the  motor  can  be  derived  from  Kirchhoff’s 
circuit  law.  The  mechanical  side  of  the  arrangement,  shown 
on  the  right,  includes  the  motor  generated  torque,  the  load 
inertia,  and  the  viscous  damping  effect.  Newton’s  laws 
will  provide  the  basis  for  modelling  the  mechanical  portion 
of  the  motor/load  combination. 

The  c if f erential  equation  for  the  armature  circuit  is: 

La  d  i  +  Rai  +  eb=ea  (2.1). 

dt 

Similarly,  the  description  of  the  mechanical  system  is  a 
differential  equation  in  shaft  angle,  but  this  time  of 


second  order. 


Ra 

vv 


AW\ 


!>  © 


motor 


ea  =  26  volts  (excitation  input) 

Ra  =  23.5  ohms  (armature  resistance) 

La  <<  1  (armature  inductance) 

Kb  =  0.008  volt/rad/sec  (back  emf  constant) 

K  =7.08  in-oz/amp  (motor  gain) 

J  =  3.01  x  10“ *  oz-in-sec2  (moment  of  inertia) 
f  =  0.6  x  10~3  oz-in/rad/sec  (viscous  friction) 


Figure  2-1.  Schematic  Diagram  of  the 

Armature  Controlled  DC  Motor 


Knowing  that  for  an  armature  controlled  dc  motor  the 
field  current,  ic  ,  is  constant  and,  therefore,  the  magnetic 
flux  is  constant,  the  motor  torque  is  directly  proportional 


to  the  armature  current 


T  =  kie 


(2.3). 


Also,  under  constant  flux  conditions,  the  back  electro¬ 
motive  force,  eb ,  will  be  directly  proportional  to  the 


motor  shaft’s  angular  velocity 

eb  =  kb  d  9 
dt 


(2.4). 


These  equations  are  sufficient  to  mathematically 
represent  the  dynamical  behavior  of  the  tic  motor.  If  zero 


v“r  C>WV-Y- '.V  .>  /“•  m"’  Y\  •''.•■j'' - 


initial  conditions  are  assumed,  then  the  differential 
equations  can  be  written  in  their  Laplace  transform 
representation : 

(Js2  +  fs)  9  (  s )  =  T  ( s  )  =  Kla(s)  (2.5). 

(Las2  +  Ra  )  la  (  S  )  +  Eb  (  s  )  =  Ea  (  S  )  (2.6). 

Kb  s6 ( s )  =  Eb (s)  (2.7) . 


With  the  armature  voltage  as  input  and  the  motor  shaft 
angle  as  output,  the  transfer  function  relation  of  the 
system  can  be  formulated  as  shown  below 

9  (  s  )  = _ K _ 

Ea(s)  s  [  LaJs2  +  (Laf  +  Ra  J  )  s  +  Ra  f  +  KKb  ]  (2.8). 

Since  the  typical  armature  inductance  of  this  type  of 
dc  motor  is  very  small,  it  will  be  neglected.  This  greatly 
simplifies  the  transfer  function  without  inducing  much 
error  due  to  the  approximation  as  can  be  seen  in  Equation 
2.9  below. 

9  ( s )  =  _ Km _  (2.9) 

Ea  ( s )  s  (  Tms  +  1  ) 

where  Km  =  K  /  (Raf  +  KKb)  Motor  gain  constant 
Tm=  Ra  J  /  ( Ra  f  +  KKb)  Motor  time  constant 

Using  the  numerical  values  for  the  motor  given  in 
Figure  2-1  the  transfer  function  becomes 

9  f  s  1  =  _ 100 _  (2.10) 

Ea ( s  )  s(0.is  +1) 
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B.  ANALYZING  THE  MODEL 


Now  that  the  system  has  been  modelled,  the  next  step 
is  to  examine  the  model’s  behavior  before  a  controller  is 
designed  and  installed.  This  step  will  tell  the  designer 
whether  the  system  will  require  stabilization  or  simply 
"fine-tuning"  to  meet  the  design  specifications.  The 
computer  can  be  used  to  assist  in  the  analysis  process. 

The  first  step,  of  course,  is  to  enter  the  model  into 
the  computer  program.  Working  from  the  system’s  block 
diagram,  shown  in  Figure  2-2,  we  begin  the  computer 
program.  From  the  opening  menu  of  LCS-CAD,  shown  here  in 
Figure  2-3,  we  choose  the  "Input/Change  Transfer 
Function(s)"  option  to  bring  us  to  the  secondary  menu  shown 
in  Figure  2-4. 


***  MAIN  MENU  *** 


I 


<I>  Input/Change  Transfer  Function(s) 

<L>  Location  of  Char.  Eq.  Roots 
<F>  Frequency  Analysis 
<R>  Root  Locus  Analysis 

<P>  Two-Parameter  Root  Locus 
<T>  Time  Response 
<U>  Utilities 

<H>  Help 

<Q>  Exit  Program 


Press  Your  Selection 


Figure  2-3.  Main  Menu 


***  INPUT/CHANGE  MENU  *** 


<I>  Input  Block  Transfer  Function(s) 
<C>  Change  Block  in  Current  Loop 

<A>  Add  a  Block  to  Current  Loop 
<D>  Delete  a  Block  from  Current  Loop 

<S>  Save  Current  Loop  to  Disk  File 
<R>  Retrieve  Problem  from  Disk  File 

<H>  Help 

<Q>  Exit  to  Main  Menu 


Press  Your  Selection 


Figure  2-4.  Input/Change  Menu 


To  initially  enter  the  transfer  function  of  the  motor, 
select  the  <I>  Input  Block  Transfer  Function(s)  option. 
The  next  screen  will  prompt  for  number  of  blocks  in  the 
current  loop  (only  one  in  the  case  of  the  motor) ,  and 
whether  the  block  will  be  input  from  the  keyboard  or  from  a 
disk  file.  Since  this  is  the  initial  input  for  this 
problem,  it  must  be  from  the  keyboard.  Next,  the  block 
input  page,  as  shown  below  in  Figure  2-5,  will  appear. 


Block  Input 


Block  1: 

Is  block  in  Forward  (F)  cr  Feedback  (B)  Path? 


What 

is 

the 

order 

of  the 

Numerator? 

0 

What 

is 

the 

order 

of  the 

Denominator? 

2 

What 

is 

the 

block 

gain  constant? 

100 

Will 

you  enter  the  block 

in  Factored  (F) 

or  Coefficient  (C)  form? 


Figure  2-5.  Block  Input  Screen 

The  options  here  allow  input  of  both  forward  path  and 
feedback  path  blocks  in  any  order.  An  input  block  can  have 
numerator  and/or  denominator  polynomial  up  to  ninth  order. 
There  is  provision  for  overall  block  gain  input,  and 
finally,  the  user  is  allowed  to  input  the  transfer  function 
for  the  block  in  either  coefficient  or  factored  form. 


The  limitation  of  a  block  to  order  nine  is  artificial 
here,  and  systems  up  to  thirtieth  order  can  be  input  by 
breaking  the  block  transfer  functions  into  smaller  order 
blocks.  For  example,  if  the  transfer  function  were 


( S2  +  4s  +  lOHs  +  2)2 
s5  (  s4  +  2s3  +  6s2  )  (  S2  +  1  ) 

then  the  function  could  be  divided  into  two  or  more  blocks 
as  shown  here 


(s2  +  4s  +  10) 

( s4  +  2s3  +  6s2  ) 


(s  ± . 2 21 

s5  (  s2  +  1 ) 


with  each  block  less  than  order  nine  and  system  order  less 
than  thirty. 

The  next  screen  shown  will  vary  depending  on  whether 
the  input  is  to  be  in  factored  or  coefficient  form.  Figure 
2-6  shows  the  factored  input  screen,  and  Figure  2-7  shows 
the  coefficient  form  input  screen. 


***Block  Transfer  Function  Input*** 


DENOMINATOR  Transfer  Function  Input  --  FACTORED  Form 


Press  <F1>  to  change  previous  entry 


Figure  2-6.  Factored-Form  Input  Screen 
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***Block  Transfer  Function  Input*** 
DENOMINATOR  Transfer  Function  Input  --  COEFFICIENT  Form 


s2  +  1 


s1  +  0 


Press  <F1>  to  change  previous  entry 


Figure  2-7.  Coefficient-Form  Input  Screen 


For  the  dc  motor  example,  the  transfer  function  lends 
itself  more  easily  to  coefficient  form  input,  and  Figure 
2-7  shows  what  the  screen  should  look  like  after  the  entry 


is  made. 


Notice  that  on  both  screens,  the  bottom  line 


directs  the  user  to  press  the  FI  function  key  to  move  back 
to  the  previous  entry.  This  facility  can  greatly  enhance 
the  capability  to  edit  previous  entries  which  may  have  been 
input  incorrectly.  Another  error  correction  facility  in 
the  LCS-CAD  program  is  the  Change  option  executed  from  the 
Input/Change  Menu  (see  Figure  2-4).  This  option  will  allow 
the  user  to  select  which  block  to  change,  then  brings  back 
the  block  input  screens  in  the  sequence  discussed  above 
except  that  the  previously  entered  numbers  are  shown  and  a 
second  message-prompt  appears  at  the  bottom  of  the  screen. 


•AV'v  %V- VO.' St  v'.v .'-V-V-V U-'.W-  V --V-W  .nV.V  c'c-V'-V-'U'V-  .V  •-.V-V-tV-VV 
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is&t 


This  message  directs  the  user  to  press  the  F10  function  key 
to  edit  any  item  on  the  page.  In  addition  to  changing  only 
the  numbers  previously  entered,  the  user  can  also  change 
the  structure  of  the  block  by  changing  the  order  of  the 
numerator  and  denominator. 

Now  that  the  system  transfer  function  has  been  entered 
into  the  program,  the  analysis  can  begin.  First,  a  quick 
check  of  the  system’s  stability  can  be  made.  From  the  Main 
Menu,  the  selection 

<L>  Location  of  Char.  Eq.  Roots 
will  provide  a  listing  of  the  unity-feedback  closed  loop 
characteristic  equation  roots.  If  all  these  roots  are  in 
the  left-half  of  the  s-plane,  i.e.,  if  all  roots  have 
negative  real  parts,  then  the  system  will  be  stable.  As 
can  be  seen  from  Figure  2-8,  the  dc  motor  and  load  are 
stable . 


***  Block  Transfer  Function  Closed-Loop  Roots  *** 


ZEROS : 


POLES : 


s[l]  =  -  5.000  +j  -31.225  s[2]  =  -  5.000  +j  31.225 


Press  any  key  to  continue  or  [Shift]  [PrtSc]  for  hardcopy 
Figure  2-8.  Root  Locations 


Frequency  domain  analysis  can  be  accomplished  with  LCS- 


CAD  by  selecting  the 

<F>  Frequency  Analysis 

choice  from  the  Main  Menu.  This  selection  will  enable  the 
user  to  prepare  either  a  Nyquist  (polar)  diagram,  or  Bode 
(logarithmic)  plot  with  user-selected  radian  frequencies. 
Figure  2-9  shows  the  on-screen  selections  for  the  Nyquist 
plot,  and  Figure  2-10  is  the  Bodes  selection  screen.  Both 
ask  for  the  range  of  frequencies  to  be  plotted.  The  first 
frequency  should  be  an  even  power  of  ten.  The  range  of 
frequencies  is  calculated  based  on  the  number  of  decades  of 
frequency  the  user  requests,  That  is,  if  the  user  selects 
0.01  as  the  starting  frequency  with  4  decades,  the  end 
frequency  will  be  100  radians/sec. 


***Bode/Nyquist  Plotting  Routine*** 


Bode  (B)  or  Nyquist  (N)  Plot?  N 

See  the  BIG  (B)  picture,  or  select  your  Window  (W)  ?  W 

Open  (0)  or  Closed  (C)  Loop  Plot?  0 

What  is  the  first  frequency  to  be  plotted? 

(e.g.  .01,  .001,  1000,  etc.  )  .01 


How  many  decades  do  you  want  plotted?  5 


Figure  2-9.  Nyquist  Plot  Parameter  Selection 


***Bode/Nyquist  Plotting  Routine*** 


Bode  (B)  or  Nyquist  (N)  Plot?  B 

Open  (0)  or  Closed  (C)  Loop  Plot?  0 

What  is  the  first  frequency  to  be  plotted? 
(e.g.  .01,  .0C1,  1000,  etc.)  .1 


How  many  decades  do  you  want  plotted?  3_ 


Figure  2-10.  Bode  Plot  Parameter  Selection 


The  "BIG  picture"  choice  for  the  Nyquist  simply  causes 
the  program  to  automatically  select  a  broad  range  of 
frequencies  and  use  a  large  scale  plot.  This  can  be  a  good 
initial  selection  if  the  user  does  not  know  how  large  a 
window  will  be  needed  to  show  the  plot.  The  user  may  also 
choose  an  open  or  closed  loop  plot.  If  closed  loop  is 
chosen,  a  negative  unity-feedback  path  is  added  around  the 
overall  block  diagram,  an  equivalent  transfer  function  is 
calculated,  and  the  corresponding  diagram  is  drawn. 

For  the  dc  motor  example,  both  the  Nyquist  plot  and  the 
Bode  diagram  are  shown  in  Figures  2-11  and  2-12 
respectively . 


From  the  Bode  diagram  it  can  be  seen  that  the  phase 


margin  is  low,  only  about  ten  degrees.  The  gain  crossover 
frequency  is  near  thirty  radians  per  second.  This  means 
that  the  uncompensated  system  will  be  stable,  but  probably 
will  have  a  long  settling  time. 

Next,  the  root  locus  can  be  examined.  With  two  real 
roots,  it  may  be  expected  that  with  increasing  gain,  the 
roots  will,  converge  along  the  real  axis,  then  separate  and 
move  in  opposite  directions  parallel  to  the  imaginary  axis. 
To  verify  this,  the  program  is  used  to  generate  the  root 
locus  graph. 

From  the  Main  Menu  the  selection  now  will  be 

<R>  Root  Locus 

and  will  produce  the  screen  shown  in  Figure  2-13. 


j  Note*  ROOT  LOCUS  PLOTTING  ROUTINE 

*** 

|  What  STARTING  value  for  variable  gain  do  you  wish?: 

.001 

What  ENDING  value  for  variable  gain  do  you 

wish? : 

1 

***  VIEWING  COORDINATES  FOR  ROOT  LOCUS 
X-Minimum:  -10 

X-Maximum:  1 

Y-Minimum:  -20 

Y-Maximum:  20 

GRAPH  *** 

Positive  or  Negative  Feedback?  (P  or  N): 

N 

Any  changes  to  these  parameters?  (Y  or  N): 
Press  <F^  to  change  previous  entry 

N_ 

Figure  2-13.  Root  Locus  Parameter  Input  Screen 
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The  program  requests  starting  and  ending  values  for  the 
variable  gain.  This  gain  is  multiplied  by  the  block  gain 
for  the  system,  that  is,  for  the  dc  motor  if  variable  gain 
of  0.001  to  1  is  chosen,  then  the  actual  gain  the  system 
will  be  varied  through  will  be  100  x  .001  to  100  x  1 ,  or 
0.1  to  100.  The  program  computes  the  unity-feedback  closed 
loop  transfer  function  for  an  increment  of  gain  then 
calculates  and  plots  the  location  of  all  the  roots.  This 
process  continues  through  the  user-supplied  range  of  gains. 

The  user  is  also  asked  to  provide  maximum  and  minimum 
values  for  X  and  Y  plot  axes.  Knowing  that  the  closed  loop 
roots  (with  unity  variable  gain)  are  at  -5.000  ±  j  31.225, 
the  X  axis  values  of  -10  to  1  can  be  expected  to  pro'ride  an 
adequate  window.  Y  axis  values  of  ±  20  may  be  adequate  to 
show  the  root  behavior.  Once  the  required  values  are 
entered,  the  program  will  begin  computation  and  plot  a 
graph  like  the  one  shown  in  Figure  2-14. 

Finally  in  the  analysis,  it  is  desirable  to  see  the 
system’s  response  in  the  time-domain  to  a  typical  input. 
For  a  dc  motor,  such  an  input  may  well  be  a  step.  This  so- 
called  step  response  can  be  calculated  and  plotted  with  the 
LCS-CAD  program  as  can  the  system  response  to  a  sinusoid, 
ramp,  or  impulse  input.  All  these  inputs  have  user- 
selectable  amplitudes  and  if  the  ramp  input  is  selected, 
the  user  may  select  slope  and  dc-offset.  In  the  case  of 
the  sinusoid,  the  radian  frequency  may  be  selected. 


***  Time  Response  Plotting  Routine  *** 


What  is  the  input  to  your  system?  STEP  (S) 

RAMP  (R) 

SIN  WAVE  (W) 

IMPULSE  ( I )  S 

Input  amplitude?  1 

Open  (0)  or  Closed  (C)  Loop  simulation?  £ 

How  many  seconds  of  simulation  would  you  like  to  see?  Z 


Figure  2-16.  DC  Motor  Step  Response 

C.  APPLYING  THE  SPECIFICATIONS 

To  use  the  motor  in  a  larger  system,  the  designer  must 
either  determine  or  be  given  the  performance  specifications 
for  the  motor.  These  specifications  will  usually  outline 
the  minimum  acceptable  performance  the  designer  can 
tolerate  from  the  system  component. 

For  the  example  motor,  suppose  that  the  motor- 
controller  combination  must  have  a  settling  time  of  no  more 
than  0.4  seconds  and  a  first-overshoot  of  less  than  fifty- 
percent  of  the  input  signal  when  subjected  to  a  step  input. 
These  constraints  will  allow  demonstration  of  LCS-CAD  in 
designing  a  simple  cascade  (series)  compensator. 


To  assist  the  designer,  curves  for  general  second-order 
system  response  are  available  in  virtually  any  basic 
control  theory  textbook.  From  these  curves  we  can 
determine  that  for  a  fifty-percent  overshoot,  the  required 
zeta(z),  or  damping  factor,  must  be  greater  than  0.23.  It 
then  follows  that  a  required  phase  margin  $  must  be 


FREQUENCY  (rad/ HC) 

Working;  Bode  Diagram  with  Asymptotes 


and  draw  a  -20  dB  per  decade  asymptote  through  it.  This 
will  mark  the  crossover  frequency  and  should  provide  good 


closed  loop  response.  For  simplicity,  the  compensator 
should  only  have  one  pole  and  one  zero.  This  can  be 
accomplished  if  the  zero  is  located  at  the  intersection 
point  of  the  asymptote  and  the  uncompensated  system  curve. 
As  seen  on  the  Bode  diagram  of  Figure  2-17,  the  zero  can  be 
placed  at  w  =  20  rad/sec.  The  pole  can  be  placed  at  w  = 
100  rad/sec  to  give  the  -20  dB  asymptote  a  reasonable 
length  to  ensure  a  large  enough  phase  rnar^n  ($m)  and 
consequently,  a  good  closed  loop  response. 

Having  determined  pole  and  zero  locations  for  the 
compensator,  we  can  input  the  design  into  the  LCS-CAD 
program  and  verify  the  solution  quickly.  From  the  Input 
Menu  the  option  to  "Add  a  Block"  can  be  selected  and  the 
compensator  input  as  block  number  two.  In  order  not  to 
change  the  motor  gain,  and  therefore  the  steady  state 
error,  the  compensator  itself  should  have  a  an  offsetting 
gain  of  100/20  or  5.0.  Once  entered,  system  analysis  can 
begin  as  before. 

The  open  loop  Bode  diagram  shown  in  Figure  2-18  shows 
that  indeed  the  crossover  frequency  was  increased  to 
approximately  45  rad/sec  and  the  phase  margin  to  near  50 
degrees.  According  to  the  earlier  calculations,  these 
parameters  should  ensure  that  the  system  is  well  within 
specifications.  The  root  locus  plot  of  Figure  2-19  also 


helps  to  confirm  this.  As  a  final,  conclusive  check, 
however,  the  system  response  to  a  unit  step,  shown  in 
Figure  2-20,  can  be  seen  to  have  a  settling  time  of  less 
than  0.2  seconds  and  a  very  small  first  overshoot.  The 
design  is,  therefore,  probably  satisfactory.  Since  the 
compensated  system  performance  is  considerably  better  than 
the  original  specifications,  it  may  be  more  costly  to  build 
than  one  that  has  slightly  worse,  but  still  satisfactory, 
performance.  If  this  is  the  case,  or  uad  the  first  pole 
and  zero  placement  not  produced  a  satisfactory  system, 
additional  design  trials  could  have  been  run  quickly  and 
easily  with  LCS-CAD. 


Figure  2-18.  Compensated  Open-Loop  Bode  Plot 
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Figure  2-19.  Compensated  System  Root  Locus 
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Figure  2-20.  Compensated  System  Time  Response 
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SUMMARY 


In 

this 

chapter,  a 

review  of 

system  design  and  an 

overview 

of 

LCS-CAD  was 

provided . 

Several  noteworthy 

program  features  -re  listed  below. 

*  The  Input/Change  Routines  enable  the  user  to 
conveniently  input  and  change  transfer  function  block 
descriptions . 

*  The  automatic  block  manipulator  synthesizes  the  user’s 
input  blocks  into  an  equivalent  loop  transfer 
function. 

*  The  user  has  the  ability  to  quickly  and  easily 

generate  Bode,  Nyquist,  Root  Locus,  and  Time 

Response  plots. 

Additional  program  features  are  available  which  were 

not  discussed  here,  most  importantly,  the  "two  parameter 

root  locus".  This  procedure  as  well  as  the  other  program 

features  will  be  discussed  in  detail  in  the  following 

* 

chapter. 
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DETAILED  PROCEDURE  MODULE  DESCRIPTIONS 


A.  PROGRAM  OVERVIEW 

LCS-CAD  has  a  hierarchical,  menu-based  structure  that 
allows  the  user  general  freedom  to  choose  which  design  tool 
he  wishes  to  use.  The  "Main  Menu"  is  the  starting  point  of 
the  program  and  all  other  menus  and  utilities  are  available 
from  here.  In  fact,  the  body  of  the  main  program, 
"CAD. PAS",  simply  calls  the  procedure  “MainMenu"  repeatedly 
until  the  user  indicates  that  he  is  finished  by  typing  <Q> . 

The  main  menu  procedure  simply  displays  the  menu  shown 
in  Figure  2-3,  and  provides  for  branching  to  other 
subroutines  as  requested  by  the  user.  A  hierarchical 
representation  of  the  Main  Menu  structure  is  shown  in 
Figure  3-1  below. 


MAIN  MENU 


INPUT  Freq.  Root  Root  2-Param  Time  UTILITY 

MENU  Analysis  Loct’n  Locus  Root  L.  Resp.  MENU 


Bode 


Root_ 

Finder 

Parser 
&  Comp . j 

Plot 

Plot 

. 

Plot 


PlotBode  PlotNyqs 


Figure  3-1.  Main  Menu  -  Functional  Block  Diagram 
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As  seen  in  Figure  3-1,  the  routine  MainMenu  can  invoke 
two  other  menus,  the  Input  Menu  and  the  Utilities  Menu. 
These  will  be  discussed  in  detail  later  in  this  chapter. 
Also  reachable  directly  from  the  Main  Menu  are  the  major 
analysis  tools  provided  by  the  program,  namely,  frequency 
analysis,  both  single  and  two  parameter  root  locus,  and 
time  response  procedures.  The  frequency  analysis  portion 
of  the  program  offers  both  Bode  and  Nyquist  plots.  The 
former  represents  system  response  as  curves  of  phase 
(degrees)  and  magnitude  (dB)  versus  radian  frequency 
(logarithmic  scale),  and  the  latter  displaying  this 
information  as  a  polar  plot  of  imaginary  and  real  parts  of 
the  magnitude. 

The  root  locus  programs  include  the  classical  "gain 
locus"  where  the  system  gain  is  varied  over  a  user- 
selectable  range.  The  two-parameter  root  locus  allows  the 
user  to  input  the  coefficients  of  a  system’s  characteristic 
equation  with  two  unknown  parameters.  The  program  then 
increments  each  of  the  parameters  through  ranges  specified 
by  the  user  and  plots  the  resulting  family  of  root  locus 
curves . 

The  time  response  routine  allows  the  user  to  select 
from  a  number  of  typical  system  inputs  including  step, 
ramp,  impulse,  and  sinusoid  as  inputs  to  the  current  loop. 
The  program  then  calculates  the  system’s  response  to  the 


input  and  plots  it. 


INPUT/CHANGE  MENU  ROUTINES 


Incut  Menu  Hierarch 


The  input  and  change  routines  are  a  collection  of 
procedures  which  allow  the  user  to  input  and  change  the 
block  transfer  functions  of  his  system.  There  are  thirteen 
functional  Pascal  routines  and.  numerous  utility  procedures 
which  implement  the  input,  change,  and  block  manipulation 
functions.  Figure  3-2  shows  the  hierarchy  of  these 
functional  procedures  within  the  larger  input  routine. 


INPUT  MENU 


Trans_Funct  Change,.  Add_  Delete_  Save_  Retrieve 

Input  Block  Block  Block  Block  Problem 


Block_Inp 


Make_Geq 


Input_ 

Factored 


Input 

Coeff 


ExpandJPoly 


RootFind 


Make_Geq 


Figure  3-2.  Input  Routine  Functional  Block  Diagram 


One  of  the  more  difficult  tasks  in  making  a  program 
"user-f ricndly"  is  validation  of  the  user’s  input.  This 
includes,  but  is  not  limited  to,  checking  for  the  correct 
type  of  input  (e.g.,  numbers,  letters,  or  symbols),  range 
checking  numeric  input,  and  checking  to  ensure  that  the 
answer  makes  "sense"  (i.e.,  a  "K“  input  does  not  satisfy  a 
"Y"  or  "N"  question).  If  the  validation  fails,  an 
intuitive  and  graceful  procedure  must  alert  the  user  that  a 
mistake  has  been  made  and  re-prompt  for  a  proper  response. 
Some  of  these  tasks  have  been  accomplished  in  LCS-CAD 
through  a  group  of  very  useful  input  routines  available  in 
the  public  domain.  The  routines  used  include  a 
menu-generation  procedure  ( "MainMenu" ) ,  procedures  to  write 
and  center  messages  on  the  screen  ("Msg"  and  "Center" ),  and 
two  very  powerful  input  routines  called  “Input"  and 
" Input_Handler " . 

The  procedure  "Input"  is  a  simple  procedure  which 
can  be  called  by  the  programmer,  but  serves  as  the  base 
routine  for  the  more  sophisticated  routine  " Input_Handler" . 
Alone,  Input  will  prompt  for  a  single  user-supplied  entry, 
check  it  for  type  and  length,  and  even  provide  a  default 
answer  if  so  programmed.  Additionally,  the  routine 
provides  the  user  with  rudimentary  text  editing 
capabilities  such  as  backspace,  insert,  and  delete  during 


keyboard  entry.  The  syntax  for  a  call  to  Input  is  given 
below: 

Input(type,  default,  col,  row,  length,  uppercase,  FI,  F10); 

where  type  =  ’A’  for  alphanumeric, 

’N’  for  numeric, 

’F’  for  formatted  (not  used  in  LCS-CAD) 
default  =  text  string  to  display  default  value 
col, row  =  column  and  row  on  screen  for  prompt 
length  =  number  of  character  spaces  in  prompt  field 
uppercase  =  boolean.  True  to  convert  input  to  all  u.c. 
F1,F10  =  boolean.  True  if  function  keys  FI  or  F10 
pressed.  Used  only  for  Input_Handler 
calls . 

Type  checking  is  automatically  performed  by  the 
procedure  and  if  the  user  attempts  to  input  an  alphabetic 
character  in  a  numeric  (N)  field,  for  example,  a  "beep" 
will  be  generated  to  alert  the  user  and  the  character  will 
not  be  accepted.  Once  a  valid  input  is  supplied  to  the 
procedure  and  the  <Return>  key  is  pressed  (signalling  the 
end  of  user  input),  the  routine  returns  the  user’s  input  in 
the  global  variable  "Answer".  Answer  is  always  returned  as 
a  string-type  variable,  so  if  a  number  is  expected,  the 
programmer  must  provide  for  conversion  to  a  numeric  type 
via  the  built  in  Pascal  function  "val". 

The  procedure  " Input_Handler"  is  a  sophisticated, 
full-page,  input  editor.  The  programmer  is  required  to 
predetermine  each  page  lay-out  and  generate  the  necessary 
textual  prompts.  A  set  of  array  elements  describing  the 
desired  input  format  is  then  generated  in  the  form  shown 


below: 


P[l]  :=  ’ 2505A02501T010102’ 


P[n]  where  n  is  limited  to  40  elements. 


The  .contents  of  each  P[]  element  is  a  coded,  column- 
dependent,  descriptor  field  explained  below: 


Column  Numbers  Description 

1-2 . column  for  input  field  to  start 

3-4 . row  for  input  field 

5  . input  type  -  A  :  alphanumerics , 

N  :  numeric , 

F  :  formatted  (not  used), 
$  :  dollar  (not  used) 

6-8 . length  of  the  input  field 

9-10 .  element  of  the  output  global  array 

Filvar[]  to  store  the  user’s  input 

11 . set  to  T  if  Caps  Lock  is  to  be  set 

12-13 . default  item  number 

14-15 . prompt  item  number 

16-17  .  validation  number 


Default,  prompt,  and  validation  numbers  call  the 
procedures  ”Get_Def ault " ,  "Say_Prompt ” ,  and  "Do_Validation" 
respectively.  The  procedures  are  primarily  comprised  or 
Pascal  "case"  statements  that  use  the  associated  item 
numbers  to  perform  some  programmer  defined  default,  prompt, 
or  validation  written  into  the  case-statement.  These 
procedures  will  be  described  more  fully  when  discussing  the 
LCS-CAD  routines  which  use  them. 


Input_Handler  can  now  be  called  with  the  syntax: 

Input_Handler (  ’5-character  string’  ); 

where  String  Column  Description 

1  .  .  .  .  N  :  new  entries 

C  :  changes  to  old  entries 
D  :  re-display  of  entry  (not  used) 

2-3.  .  .  .  first  element  of  P[]  array  to  use 

4-5.  .  .  .  last  element  of  P[]  array  to  use 

If  calling  the  procedure  with  "N"  for  new  entries, 
the  contents  of  the  corresponding  output  array  element, 
“Filvar[]",  is  cleared  and  readied  fcr  new  input.  If  "C" 
is  used,  the  old  value  of  the  associated  Filvar  variable  is 
displayed  as  the  default  input  for  the  field.  This  is 
essential  for  full-screen  editing  of  inputs.  Input_Handler 
calls  the  Input  routine  as  described  above,  but  uses  the 
boolean  variables  FI  and  F10  for  access  to  all  fields  on  a 
screen.  In  the  "N"-  new  entries  mode,  a  user  prompt  is 
displayed  in  the  lower  left  corner  of  the  screen 
instructing  the  user  to  press  FI  to  edit  the  previous  entry 
on  the  screen.  If  in  the  "C"  -  change  mode,  an  additional 
prompt  tells  the  user  to  press  F10  to  discontinue  editing 
on  that  screen.  By  using  the  FI,  <Return> ,  and  F10  keys, 
the  user  can  quickly  and  effectively  edit  previously 
entered  screens  of  data  to  either  change  a  problem  or 
correct  erroneous  entries. 
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Input_Handler  returns  the  user’s  input  to  the 
calling  program  in  the  global  variable  array  "Filvar".  As 
with  the  Input  routine’s  Answer  variable,  all  the  Filvar 
elements  are  string-type  and  must  be  converted  if  numeric 
input  is  needed. 

These  utility  routines  were  helpful  in  developing 
LCS-CAD  and  are  used  extensively  throughout  the  program  for 
user  input.  Several  other  subroutines  are  available  in  the 
package  either  for  programmer  use  or  to  be  called  by  the 
routines  described  here.  Appendix  A  is  a  descriptive 
excerpt  from  the  user’s  guide  supplied  with  these 
subroutines . 

3 .  Blocks  Record 

LCS-CAD  uses  the  transfer  function  block  as  the 
basic  foundation  element  of  the  program.  Not  only  does 
this  have  the  advantage  of  being  intuitive  to  the  designer 
accustomed  to  classical  block  manipulation  design,  but 
facilitates  algorithm  design  which  is  also  simple  for  the 
engineer  to  follow.  Pascal  handles  this  block-by-block 
design  particularly  well  with  its  "record"  structure.  Each 
transfer  function  block  in  the  user’s  current  loop  is 
described  by  one  corresponding  Pascal  record.  Each  record 
is  a  logical  grouping  of  all  the  parameters  necessary  to 
describe  the  block.  This  record  structure  is  shown  below 
in  Figure  3-3. 
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BLOCKS  =  record 

NZeros,  NPoles 

integer; 

K 

real ; 

RealPartZero, 

ImagPartZero , 

RealPartPole, 

ImagPartPole 

PolyArray ; 

NumCoeff , 

DenCoeff 

PolyArray ; 

LeadNumCoef f , 

LeadDenCoef f 

Real ; 

FeedBack, 

Factored 

Boolean; 

Figure  3-3.  Blocks  Record  Structure 


The  record  contains  the  order  of  the  numerator  and 
denominator  polynomials  in  the  variables  NZeros  and  NPoles 
respectively.  The  coefficients  of  the  polynomials  are 
contained  in  the  arrays  (of  type  PolyArray)  NumCoeff  and 
DenCoeff.  The  factors  of  the  numerator  polynomial  are  held 
in  the  arrays  RealPartZero  and  ImagPartZero  for  the  real 
and  imaginary  portions  of  the  complex  conjugate  factors 
respectively.  Likewise,  the  denominator  factors  are  stored 
in  RealPartPole  and  ImagPartPole . 

"LeadNumCoef f "  and  "LeadDenCoef f "  are  used  to 
"normalize"  and  "un-normalize"the  leading  coefficients  of 
the  polynomials.  That  is,  for  calculations,  the  routines 
require  polynomials  whose  leading  coefficient  is  one,  but 
for  display,  the  polynomials  must  be  converted  back  to  the 
original  input  form.  These  two  real  variables  facilitate 
those  conversions. 

40 


.v  v. ' y  ,•  ■/  v  v  *,•  /  f„«  *  *  *  -  *t-  *t.  ’«*  *.*  *,•  %-  ■,*  'r.  ~  r  j  ■ 


"FeedBack"  is  a  boolean  variable  that  is  true  when 
the  block  is  in  the  feedback  path  and  false  when  it  is  in 
the  forward  path  of  the  loop.  "Factored"  is  true  if  the 
transfer  function  was  initially  input  in  factored  form  and 
false  if  the  input  was  in  coefficient  form. 

If  the  user  inputs  a  block  transfer  function  into 
the  program  in  coefficient  form,  the  routine  "RootFinder" 
is  called  to  generate  the  factors  of  the  polynomials  and 
store  them  in  the  appropriate  record  variables.  In  the 
case  of  factored  input,  the  routine  ”Expand_Poly "  provides 
the  coefficients  of  the  expanded  polynomials  and  stores 
them  in  the  record  variables  "NumCoeff"  and  "DenCoeff". 
RootFinder  and  Expand_Poly  will  be  discussed  later. 

Once  all  the  blocks  in  a  loop  have  been  input,  the 
procedure  "Make_Geq"  is  invoked  which  reduces  the  transfer 
functions  of  all  the  blocks  in  the  loop  into  a  single 
"equivalent"  block  with  an  identical  record  structure  as 
all  the  other  blocks.  Most  plotting  functions  and  analysis 
tools  use  this  equivalent  block  record  for  all  their 
computations . 

4 .  RootFinder  Module 

One  of  the  most  important  routines  in  LCS-CAD  is 
the  procedure  called  "RootFinder".  This  sub-program’s 
function  is  to  find  the  factors,  or  roots,  of  any  given 
polynomial.  The  procedure  is  used  by  the  Input  routine  to 


find  the  poles  and  zeros  of  a  transfer  function  input  as  a 


quotient  of  two  polynomials.  It  is  also  called  by  the 
root-locus  and  two-parameter  root  locus  programs  to  find 
successive  roots  of  the  transfer  function  while  changing 
the  system  gain  or  other  parameters. 

Procedure  RootFinder  uses  Bairstow’s  method  to  find 
the  roots  of  a  polynomial  with  real  coefficients 
numerically  [Ref.  1].  This  algorithm  iteratively  searches 
for  a  quadratic  factor  of  a  given  polynomial  and,  when  it 
finds  the  factor,  deflates  the  original  polynomial  and 
repeats  the  process.  The  algorithm  is  outlined  in  Figure 
3-4.  Procedure  RootFinder  is  called  and  passed  the  order  of 
the  polynomial  ( N ) ,  the  polynomial  coefficients  (Coeff)  in 
array  form,  the  initial  guesses  for  P  and  Q  (PI  and  Q1 ) , 
and  returns  two  arrays  of  real  and  imaginary  roots 
(RealPartRoot  and  ImagPartRoot ) .  RootFinder  first 
normalizes  the  input  polynomial  to  have  a  leading 
coefficient  of  one  and  loads  the  polynomial  into  an  array 
A.  The  B  and  G  arrays  are  initialized  to  contain  all 
zeros . 

The  procedure  checks  the  input  polynomial  order  and 
handles  the  simple  cases  of  a  zero,  first,  or  second  order 
polynomial.  If  higher  order,  the  procedure  invokes  the 
Bairstow  algorithm  and  computes  a  quadratic  factor.  When  a 
factor  is  found  RootFinder  calls  a  supplementary  procedure 
named  Solve_Quadratic  to  determine  the  complex  conjugate 
roots  using  the  classical  quadratic  equation.  With  the  ”B" 


Given  an  nfch  degree  polynomial: 


a3xn  +a4xn_1  +  .  .  .  +  an  +  2  x  +  an  +  3  , 

and  the  initial  coefficients  P  and  Q  of  the  quadratic 
factor: 


then 


x2  -  Px  -  Q  , 


Set  B(l),  B( 2 ) ,  G ( 1 ) ,  and  C(2)  =  0. 

DO  WHILE  DeltaP  >  epsilon  (tolerance  value),  or 
DeltaQ  >  epsilon, 


DO  FOR  J  =  3  to  n  +  3  step  1 , 

Set  B(J)  =  A(J)  +  P  *  B(J-l)  +  Q  *  B(J-2). 

Set  C(J)  =  B(J)  +  P  *  C(J-l)  +  Q  *  C( J-2 ) . 

Set  DENOM  =  C(N+1)2  -  C(N+2)  *  C(N). 

IF  DENOM  =  0  THEN 

Set  P  =  P  +  1. 

Set  Q  =  Q  +  1. 

Repeat  from  beginning. 

ENDIF. 

Set  DeltaP  =  [  -B(N+2)  *  C(N+1)  +  B(N+3) 

*  C(N)  ]  /  DENOM. 
Set  DeltaQ  =  [  -C(N+1)  *  B(N+3)  +  C(N+2) 

*  B(N+2 )  ]  /  DENOM. 

Set  P  =  P  +  DeltaP. 


Set  Q  =  Q  +  DeltaQ. 

ENDDO . 

ENDDO . 


Figure  3-4.  Bairstow’s  Algorithm 


array  now  holding  the  deflated  polynomial  of  order  n~2, 
theprocedure  checks  again  for  the  simple  low-order  cases 
and  solves  the  remainder  of  the  problem  or  continues 
searching  for  another  quadratic  factor.  To  look  for 
another  quadratic  factor,  the  B  matrix  coefficients  are 
loaded  into  the  A  matrix  and  the  entire  procedure  is 
repeated. 

RootFinder  operation  is  affected  by  two  parameters 
which  are  somewhat  arbitrarily  selected.  These  are 
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Epsilon,  the  acceptable  error,  and  IterationCount ,  the 
number  of  times  the  procedure  will  repeat  the  search  for  a 
factor.  If  Epsilon  is  chosen  to  be  very  small,  and 
IterationCount  very  large,  the  accuracy  of  the  solution 
should  improve,  but  the  execution  time  of  the  procedure 
will  be  degraded.  Currently,  Epsilon  is  0.00001  and 
IterationCount  is  40.  In  program  tests  against  known 
results  these  two  constants  have  provided  satisfactory 
results  without  noticeable  execution  time  degradation. 

5 .  Polynomial  Expansion  Routine 

The  procedure  Expand_Poly  takes  as  input  a  set  of 
real  and  complex  conjugate  factors  and  expands  them  into  a 
polynomial  with  real  coefficients.  There  are  numerous 
algorithms  to  accomplish  this,  but  the  most  intuitive  one 


was  selected 

for  use 

in  LCS 

-CAD. 

The 

process  here  follows 

closely  the 

steps 

one 

would 

take 

if  performing 

the 

operation 

long-hand . 

The 

steps 

are  outlined 

in 

Figure  3-5. 

The  process  is  best  explained  by  example.  Assume 
that  the  following  set  of  factors  is  to  be  operated  on  by 
the  subroutine  Expand_Poly  algorithm. 

(s  +  1  +  j 1 . 414 ) ( s  +  1  -  jl . 414 ) ( s  +  4  +  jO) 

The  first  two  factors  constitute  a  complex 
conjugate  pair  since  their  real  and  imaginary  parts  have 
the  same  magnitude  with  the  imaginary  parts  differing  in 
sign.  When  these  two  factors  are  multiplied  together,  the 


& 


result  will  be  a  real-coefficient,  quadratic  polynomial. 
For  this  particular  example  the  product  of  the  conjugate 
pair  will  be 

(  s2  +  2s  +  3  ). 

The  program  will  recognize  that,  since  there  is  a 
non-zero  imaginary  part  of  the  first  factor,  a  complex 
conjugate  pair  is  present  in  the  problem  and  resolve  this 
first  by  forming  the  quadratic  as  above.  To  accomplish 
this,  TEMP [ 1 ]  will  be  set  to  12  +  1.4142  or  3.0,  and 
TEMP[2]  will  be  set  to  (2  *  1)  or  2.0,  in  accordance  with 
the  algorithm. 

Assignments  to  POLY  will  be  identical  and  the  order 
of  the  system,  originally  three,  will  be  reduced  to  one. 
This  will  leave  only  the  (s  +  4)  factor  to  deal  with  in  the 
subsequent  step.  So  the  program  will  examine  this  next 
factor  and  determine  it  to  be  real.  H0LD[1]  will  be  set  to 
three  and  H0LD[2]  will  be  set  to  zero.  This  initial  setup 
is  shown  in  Figure  3-6. 

Now  the  polynomial  in  POLY  is  shifted  left  one  place 
to  simulate  multiplying  it  by  the  unity  coefficient  of  the 
s-term  in  the  (s  +4)  factor.  Finally,  the  contents  of 
TEMP  are  multiplied  by  H0LD[1]  and  added  to  the  shifted 
POLY  contents  as  seen  in  Figure  3-7. 

The  addition  indicated  in  Figure  3-7  yields  the 
polynomial  with  coefficients 
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These  coefficients  are  stored  back  into  the  array  TEMP  and 


the  process  continues  if  there  are  more  factors. 


Given  n  real  or  complex  factors  of  a  polynomial: 


(s  +  ai  ±  jbi)(s  +  a2  ±  jb2)...(s  +  an  ±  jbn  ) 


where  a’s  are  real  and  jb’s  are  imaginary  or  zero, 
then 


Set  Temp[i]  and  Poly[i]  =  0.  {for  all  i  to  n} 
order  =  n. 


IF  b  =  0  THEN  {real  value} 

Set  TEMP [ 1 ]  =  POLY [ 1 ]  =  ai . 

Set  TEMP [ 2 ]  =  P0LY[2]  =  1. 

Decrement  order  by  1 . 

ELSE 

Set  TEMP [ 1 ]  =  POLY [ 1 ]  =  ai  2  +  bi  2  .  {conjugate  mult} 
Set  TEMP [ 2 ]  =  P0LY[2]  =  2  *  ai . 

Set  TEMP[3]  =  POLY[3]  =1. 

Decrement  order  by  2 . 

ENDIF. 


WHILE  order  >  0  DO 
IF  b  =  0  THEN 

Set  H0LD[1]  =  ai  . 

Set  H0LD[2]  =  0. 

Set  POLY  =  Shif tLef t ( POLY ) . 

Set  POLY [ 1 ]  =  0. 

Set  POLY  =  POLY  +  (TEMP  *  HOLD[l]). 

Set  TEMP  =  POLY. 

Decrement  order  by  1 . 

ELSE 

Set  HOLD[l]  =  ai  2  +  bi  2  .  {conjugate  multiply} 

Set  HOLD[2]  =  2  *  ai  . 

Set  HOLDC3]  =  1. 

Set  POLY  =  ShiftLef t (POLY) . 

Set  P0LY[1]  =  0. 

Set  POLY  =  POLY  +  (TEMP  *  H0LD[2]). 

Set  POLY  =  Shif tLef t ( POLY) . 

Set  POLY [ 1 ]  =  0. 

Set  POLY  =  POLY  +  (TEMP  *  H0LD[1]). 

Set  TEMP  =  POLY. 

Decrement  order  by  2. 

ENDIF. 

ENDDO . 


Figure  3-5.  Expand_Poly  Algorithm 
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Figure  3-6.  Initial  Array  Contents 
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Figure  3-7.  Array  Contents  After  Third-Factor  Operation 


In  the  actual  program  implementation,  the  conjugate 
multiplication  is  developed  as  a  separate  procedure  called 
"Conjug_Mult"  for  program  readability.  Also,  the 
coefficients  in  the  final  result  stored  in  the  POLY  array 
are  reversed  to  conform  to  the  established  storage  order 
protocol . 


An  essential  element  of  the  LCS-CAD  program  is  the 


"Make_Geq‘‘  procedure.  This  routine  calculates  the 
equivalent  block  transfer  function  from  all  the  blocks  in 
the  user  input  loop.  Conceptually)  the  process  is  a  simple 
one,  and  because  of  the  block  record  structure,  the 
algorithm,  too,  is  relatively  straightforward. 

For  a  given  loop  each  of  the  transfer  function 
blocks  will  be  in  either  the  forward  or  feedback  path.  The 
first  step  will  be  to  condense  these  blocks  into  single 
forward  and  feedback  blocks.  To  combine  blocks  in  the  same 
path  the  transfer  functions  are  multiplied,  or  more  simply, 
the  factors  of  the  transfer  functions  are  just  lumped 
together  as  shown  below  in  Figure  3-8. 


Figure  3-8.  Transformation  of  Two  Path  Transfer  Functions 
to  a  Single  Equivalent  Transfer  Function  Block 


Once  the  forward  and  feedback  path  blocks  have  been 
reduced  to  two  equivalent  blocks,  they  can  easily  be 
reduced  to  one  single  block  by  application  of  Mason’s  rule. 
This  is  demonstrated  in  Figure  3-9. 

The  Make_Geq  procedure  closely  follows  these  steps 
to  reduce  the  loop  block  to  a  single  "G-equivalent "  block. 
The  simplified  algorithm  is  shown  below  in  Figure  3-10.  In 
the  actual  implementation,  additional  arrays  and  temporary 
variables  were  required  to  hold  the  real  and  imaginary 
parts  of  each  pole  and  zero,  and  the  forward  and  feedback 
block  gains. 


Figure  3-9.  Reduction  of  a  Forward  and  Feedback  Block 
to  a  Single  Equivalent  Block 


49 


Given  NBlocks  transfer  functions 


then 


Initialize  Fwd_Zero_Count ,  Fwd_Pole_Count , 

Feedback_Zero_Count ,  Feedback_Pole_Count  =  0. 

FOR  i  =  1  TO  NBlocks  STEP  1  do 
IF  FeedbackBlock  THEN 

COLLECT (Feedback_Zeros  and  _Poles)  in  Feedbck_Array . 
INCREMENT (Feedback_Zero_Count  &  _Pole_Count ) . 

ELSE 

COLLECT (Forward_Zeros  and  _Poles)  in  Forward_Array . 
INCREMENT (Forward_Zero_Count  &  _Pole_Count ) . 

ENDFOR. 


WITH  G_eq  DO 
{construct  Geq  Zeros} 

COLLECT (Forward_Array_Zeros  &  Feedbck_Array_Zeros )  in 

Geq_Zeros . 


{construct  Geq  Poles} 

COLLECT (Forward_Array_Zeros  &  Feedbck_Array_Zeros )  in 

Tempi . 

EXPAND(Templ )  {to  Polynomial  and  store}  in  TempPolyl. 


COLLECT (Forward_Array_Poles  &  Feedbck_Array_Poles)  in 

Temp2 . 

EXPAND ( Temp2 )  {to  Polynomial  and  store}  in  TempPoly2. 

Set  Geq_Denominator_Coef f icients  to  TempPolyl+TempPoly2 
FACTOR (Geq_Denominator_Coef f icients )  in  Geq_Poles. 
ENDWITH. 


Figure  3-10.  Make_Geq  Procedure . Algorithm 


7 .  Input  Procedure. 

The  basic  input  program  relies  on  four  separate 
procedures,  namely,  Trans_Function_Input ,  Block_Input, 
Input_Factored ,  and  Input_Coeff.  Trans_Function_Input  is 
the  procedure  invoked  from  the  Input  Menu.  It  serves  two 


functions : 


(1)  Query  the  user  for  number  of  blocks  in  the  loop, 
then  execute  repeat  a  call  to  Block_Input  until 
all  the  blocks  are  entered, 

(2)  Call  the  Make_Geq  procedure  after  all  blocks  are 
input  to  form  the  equivalent  transfer  function. 

The  Block_Input  procedure  is  the  heart  of  the  input 
routine.  It  queries  the  user  for  block  attributes  like 
number  of  poles  and  zeros,  block  gain,  and  whet-her  the  user 
will  input  the  block  transfer  functions  as  factors  or 
polynomial  coefficients.  Block_Input  relies  heavily  on  the 
services  provided  by  the  procedures  Input  and  Input_Handler 
described  earlier.  These  utility  procedures  give -the  user 
a  great  deal  of  flexibility  with  their  built-in  error 
checking  and  validation  and  the  full-screen  editing 
capabilities . 

Based  on  the  user’s  choice  of  factored  or 
coefficient  form  input,  Block_Input  calls  Input_Factored  or 
Input_Coeff  respectively.  These  routines  display  user 
prompts  for  their  particular  kind  of  input  and  also  use  the 
Input_Handler  routine  extensively. 

An  unusual  segment  of  the  program  implementation 
worthy  of  note  involves  the  coefficient  form  of  input.  If 
the  leading  coefficient  input  by  the  user  is  not  unity, 
then  the  program  will  normalize  the  polynomial.  This 
involves  dividing  the  polynomial  through  by  the  leading 
coefficient,  then  correcting  the  block  gain  to  compensate 
for  the  change.  Several  algorithms  in  LCS-CAD,  in 
particular  the  Root_Finder  procedure,  expect  a  unity 
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leading  coefficient  on  a  block  polynomial. 


normalization  process  does  produce  unwanted  side-effects, 
however.  If  the  user  decides  to  view  or  change  a  transfer 
function  that  was  entered  in  coefficient  form,  then  he 


could  be  confused  by  the  changes  to  block  gain  and  the 


normalized  polynomial.  To  alleviate  these  problems,  two 
variables  for  each  block,  LeadNumCoeff  and  LeadDenCoef f , 


a 


hold  the  original  values  of  the  user  input  leading 
coefficients  of  the  numerator  and  denominator  polynomials 
respectively.  If  the  user  chooses  to  change  the  block,  the 
normalization  process  can  be  reversed  and  the  coefficients 
and  gain  restored  to  their  input  values. 

8 .  Change  Procedures . 

One  of  the  most  important  features  of  the  LCS-CAD 
user  interface  is  its  ability  to  allow  changes  to  the  block 
descriptions  quickly  and  easily.  The  major  tool  which 
supports  this  facility  is  the  InputJHandler  procedure 


discussed  earlier.  The  LCS-CAD  input  and  change  procedures 
expand  Input_Handler ’ s  full  screen  editing  support  to 
include  the  capability  to  change  the  actual  structure  of  a 
previously  entered  block.  That  is,  the  user  can  change  the 
order  of  the  block  transfer  function  as  well  as  the 
coefficients  or  factors  that  were  previously  entered.  This 
very  powerful  combination  facilitates  both  input  error 
correction  and  changes  made  during  the  design  process. 
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To  make  these  changes  possible,  the  procedure 
Change_Block  sets  a  boolean  variable  called  "Change"  to 
true  when  the  procedure  is  entered.  This  alerts  the 
Block_Input  procedure,  which  is  also  used  for  initial  user 
input,  that  changes  are  to  be  made  to  the  block  whose  index 
is  passed  as  a  parameter.  The  Block_Input  routine  then 
reinitializes  the  appropriate  Filvar[]  array  elements  to 
the  previously  entered  values  and  uses  them  as  default 
values  to  each  query  (see  Section  2.  Input  Utility 
Functions  for  Filvar  explanation).  The  process  then 
continues  exactly  as  for  first-time  input. 

9 .  Add  and  Delete  Blocks 

The  procedure  Add_Block  allows  the  user  to  add  a 
block  to  the  current  loop.  The  routine  simply  increments 
the  block  counter  variable,  NBlocks,  and  calls  the  block 
input  procedure,  Block_Input.  On  return  from  Block_Input, 
a  new  G-equivalent  is  calculated. 

Delete_Block  is  a  slightly  more  complicated 
procedure.  It  must  first  ask  the  user  to  identify  the 
block  number  of  the  block  to  delete,  check  that  the  block 
exists,  and  then  remove  it  from  the  current  loop.  The 
block  is  effectively  removed  from  the  loop  by  deleting  its 
block  index  number  and  adjusting  the  remaining  block 
indices.  A  new  G-equivalent  block  is  computed  after  a 
block  is  deleted. 
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The  procedure  used  to  store  a  problem  to  a  floppy 
or  hard  disk  file  is  3ave_Block.  It  queries  the  user  for 
drive  designator  (A  through  D),  and  filename  for  the  loop 
blocks  to  be  saved.  Only  the  first  eight  characters  of  an 
MS-DOS  filename  are  allowed;  the  program  appends  a  filename 
extension  of  ".BLX"  to  each  loop.  This  extension  is  used 
to  later  to  limit  the  disk  search  for  legitimate  block 
files  when  retrieving  the  data.  Once  a  drive  and  filename 
are  supplied  the  procedure  opens  the  file  and  stores  the 
loop  data.  The  data  file  is  a  sequential  file  of  records 
stored  as  illustrated  in  Figure  3-11. 


Figure  3-11.  Block  Storage  Scheme 


Note  from  Figure  3-11  that  the  equivalent  block, 
Geq,  is  stored  first  at  the  zero  file-pointer  position. 
This  is  convenient  since,  regardless  of  the  number  of 
blocks  in  the  loop,  the  equivalent  block  description  is 
always  at  position  zero  and  easy  to  access.  There  are  two 
opportunities  to  read  this  file  during  the  program,  the 


first  available  from  the  single  block  input  routine  when 
the  program  asks  whether  the  block  will  be  read  from  a  file 
or  from  the  keyboard.  If  the  file  option  is  taken,  then 
only  the  Geq  block  is  accessed.  The  other  time  the  file 
can  be  read  is  from  the  "Retrieve  Problem  from  Disk  File" 
option  on  the  Input  Menu.  This  option  will  read  all  the 
blocks  into  memory,  including  the  Geq  block.  This  option 
is  discussed  in  detail  in  the  next  section. 

1 1 .  Retrieve  Problem  from  Disk  File 

Like  the  Save_Block  procedure,  the 
Retrieve_Problem  procedure  first  queries  the  user  for  the 
data  drive  where  the  block  descriptions  are  located.  Once 
this  is  done,  the  program  calls  another  public  domain 
procedure  called  "Directory".  This  routine  uses  MS-DOS 
function  calls  to  query  the  disk  drive  and  read  the 
directory  listing.  It  then  displays  the  directory  in  a 
window  on  screen  with  a  moveable  cursor  activated  with  the 
arrow  keys  on  the  numeric  keypad.  The  cursor  can  be  moved 
to  point  to  the  desired  file  and,  when  the  <Return>  key  is 
pressed,  the  filename  is  returned  to  the  Retrieve_Problem 
procedure.  Retrieve_Problem  then  opens  the  file  and  reads 
the  contents. 

The  Directory  procedure  will  only  request  the  disk 
filenames  with  the  MS-DOS  extension  " . BLX" .  This 
eliminates  the  possibility  that  the  user  can  attempt  to 


read  in  a  block  that  is  not  a  data  block  (recall  that  the 
Save_Block  procedure  automatically  appended  this  extension 
onto  the  user-supplied  filename). 

12 .  Using  Input  Routines  to  Build  Complex  Systems 

The  tools  described  thus  far  should  be  sufficient 
to  build  arbitrarily  complex  systems  if  the  proper  approach 
is  used.  The  powerful  block  manipulator  is  capable  of 
reducing  a  loop  with  up  to  nine  blocks.  Block  size  is 
limited  to  a  ninth  order  numerator  or  denominator,  due  to 
screen  display  limits,  and  overall  system  size  is  limited 
to  a  polynomial  of  thirtieth  order,  based  on  the  compiler- 
imposed  memory  size  limit.  The  greatest  limitation  of  the 
LCS-CAD  program  for  the  designer  is  the  ability  to  only 
handle  one  loop  in  memory  at  one  time.  This  can  be 
overcome  by  working  a  complex  problem  "from  the  inside- 
out"  . 

Given  a  complex  problem  like  the  one  shown  in 
Figure  .1-11,  the  problem  can  best  be  solved  by  the 
following  steps: 

(1)  Enter  block  B  and  C  as  a  system  and  save  1  „  disk; 

(2)  Enter  block  D  from  the  keyboard  and  the  BC 
equivalent  from  the  diskfile.  Save  result  to  disk; 

(3)  Enter  blocks  A,  E,  and  F  from  keyboard  and  the 
BCD  equivalent  from  diskfile.  Analyze  the  system. 

If  this  were  a  typical  feedback  design  problem,  the 


engineer  would  need  to  analyze  the  interior  loops  for 
stability  before  proceeding  to  the  outer  loops  as  a 


YV  1.  .T.  l  J :-f  7  V7J  fj  v.  rf-j  -r.j  J-  l'f  .1- 


standard  practice,  so  the  inside-to-out  limitation  would  be 
minimized.  At  any  rate,  this  limitation  is  at  worst  an 
annoyance  and  should  have  no  serious  effect  on  overall 
design  performance. 


Figure  3-11.  Reduction  of  a  Complex  Block  Structure 
with  LCS-CAD 
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c. 


LOCATION  OF  CHARACTERISTIC  EQUATION  ROOTS 


As  discussed  in  Chapter  2,  one  way  to  quickly  check  the 
stability  of  a  system  is  to  examine  the  closed-loop  roots 
of  the  system’s  characteristic  equation.  If  all  the  roots 
are  in  the  left-half  of  the  S-plane,  i.e.  real  parts  of  the 
roots  are  negative,  then  the  system  is  stable.2 

The  extreme  usefulness  •  of  such  a  utility  was  the 
impetus  for  placing  it  in  the  Main  Menu.  Once  the  user  has 
input  his  block  diagram  and  returned  to  the  main  menu,  only 
a  keystroke  is  required  to  check  the  loop  for  stability. 
If  the  loop  is  not  stable,  then  the  user  knows  immediately 
that  compensation  is  required  and  can  begin  the-  design 
process . 

The  procedure  which  computes  and  displays  the  closed- 
loop  roots  is  called  "ShowRoots" .  Negative  unity  feedback 
is  used  to  close  the  loop  on  the  system.  The  algorithm  is 
shown  in  Figure  3-12.  Recall  that  in  a  unity  feedback 
system,  the  closed-loop  denominator  polynomial  is  equal  to 
the  sum  of  the  open-loop  denominator  coefficients  and  the 
block  gain  times  the  numerator  coefficients,  since 

Gc  1  (  s  )  =  _ Go  l  (  s  ) _ 

1  +  Go  1  ( s  ) 

The  closed-loop  zeros  are  identical,  to  the  open-loop  zeros. 


2  It  can  be  established  for  a  stable,  causal  system  that 
the  roots  will  all  be  in  the  left-half  of  the  S-plane. 
Since,  from  an  engineering  standpoint,  all  physically 
realizable  systems  will  be  causal,  therefore  this 
generalization  can  be  made. 


Given  the  G-equivalent  block  for  the  system: 


CALCULATE  the  on-screen  display  position. 

DISPLAY  Geq. NumCoeff  ROOTS. {C.L.  zeros  =  O.L.  Zeros} 

SET  ClosedLoopPoly  =  (Geq. NumCoeff  *  K)  +  Geq. DenCoef f . 

CALL  RootFinder. 

DISPLAY  ROOTS  of  ClosedLoopPoly. 

Figure  3-12.  ShowRoots  Algorithm. 

D.  FREQUENCY  ANALYSIS 

Frequency-domain  analysis  is  essentially  the 
examination  of  a  system’s  response  to  input  sinusoids  of 
varying  frequency.  Not  only  can  this  so  called  "frequency 
response"  can  be  computed  analytically  from  the  system 
transfer  function,  but  the  model  of  a  complex  physical 
system  can  be  obtained  experimentally  by  injecting  input 
sinusoids  and  observing  the  output  resonse.  For  these 
reasons,  frequency  domain  design  techniques  have  been 
developed  and  used  for  many  years. 

Among  the  most  popular  design  tools  in  the  frequency- 
domain  are  graphical  techniques  known  as  Bode  and  Nyquist 
plots.  Historically,  the  graphical  methods  allowed  the 
engineer  to  visualize  the  system’s  behavior.  He  could  then 
apply  various  heuristic  methods  and  approximations  to 
obtain  a  qualitative  "best  guess"  at  how  the  system  would 
respond  to  a  given  input.  The  other  alternative  of 
deriving  the  quantitative  response  was  often  mathematically 
complex  and  time-consuming  if  it  was  possible  at  all. 
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Now  with  the  advent  of  digital  computers,  and 
especially  the  desktop  "personal  computer",  the  engineer 
has  a  device  that  can  provide  the  quantitative  information 
while  still  providing  the  familiar  graphical  tools  that  he 
is  accustomed  to  designing  with.  The  end  result  should  be 
faster,  easier,  and  more  accurate  designs. 


The  Nyquist  plot  is  a  graph  of  the  magnitude  of 
G(jw)  versus  the  phase  angle  of  G(jw)  as  w  is  varied 
through  a  range  of  frequencies.  The  graph  is  plotted  in 
polar  coordinates.  For  each  frequency,  the  phase  and 
magnitude  is  calculated  and  plotted  on  the  Nyquist  plot. 
Figure  3-13  shows  a  graphical  interpretation  of  magnitude 
and  phase. 


Figure  3-13.  System  Magnitude  and  Phase 


For  computation  purposes  the  magnitude  of  a  single 
pole  or  zero  can  be  written  as 

Magn  =  A  (RealPart)2  +  (w  -  ImagPart)2 
and  its  phase  is 

Phase  =  tan-1 [  (w  -  ImagPart)  /  RealPart  ]. 

For  multiple  poles  or  zeros,  the  magnitude  and  phase  are 
simply  computed  for  each  individual  pole  or  zero,  then  the 
magnitudes  multiplied  and  the  phases  and  added  together. 

The  the  overall  system  magnitude  can  be  computed  as 
Magnsystem  =  Magnzeros  /  Magnpoles 
and  the  overall  system  phase  is 

Phases ystem  =  Phasezeros  ~  Phasepoi  es  , 

The  LCS-CAD  procedure  Bode  performs  precisely  these 
calculations  to  compute  both  the  Bode  and  Nyquist  system 
response.  The  algorithm  is  outlined  in  Figure  3-14.  Once 
the  system  phase  and  magnitude  are  computed,  the  simple 
transformation  into  cartesian  coordinates  is  required  to 
plot  the  information. 

The  user  is  given  several  options  to  select  from 
regarding  the  plotting  and  calculation  parameters  for  the 
Nyquist  plot.  The  beginning  frequency  can  be  selected  as 
can  the  number  of  decades  to  be  plotted.  The  user  can 
choose  to  manually  select  a  window  size  (maximum  and 
minimum  values  on  the  plotting  scale)  or  can  alternately 
choose  to  see  the  "big  picture".  This  option  will  plot  a 


Given  the  poles  and  zeros  of  a  transfer  function: 

G(s)  -  ( s  +  ai  ±  .i  bi  )  ( s  +  a2  ±  ,i  b2  )  .  .  ,  f  s  +  am  ±  .i  bm ) 

( s  +  ci  ±  j  di  )  ( s  +  C2  ±  j  d2  )  .  .  .  ( s  +  cm  ±  j  dm ) 

and  a  range  of  frequencies  wi  .  .  wk  ,  then 

WHILE  w  <  vm  DO 

SET  ZMagn  =  PMagn  =  1.0;  SET  ZPhase  =  PPhase  =  0.0; 

FOR  i  =  1  TO  m  STEP  1  DO  {compute  for  zeros} 

SET  ZMagn  =  ZMagn  *  SQRT(  ai  2  +  (w  -  bi  )2  ). 

SET  ZPhase  =  ZPhase  +  ArcTan( (w  -  bi  )/  -ai  ). 

ENDFOR. 

FOR  i  =  1  TO  n  STEP  1  DO  {compute  for  poles} 

SET  PMagn  =  PMagn  *  SQRT (  ci  2  +  (w  -  di  )2  ). 

SET  PPhase  =  PPhase  +  ArcTan((w  -  di  ) /  -ci  ). 

ENDFOR. 

SET  Magnsys  =  ZMagn/PLagn.  SET  Phases ys  =  ZPhase-PPhase . 
SET  PlotX  =  Magnsys  *  cosine ( Phases y a ) . 

SET  PlotY  =  Magnsys  *  sine( Phases ys ) . 

INCREMENT  w. 

ENDWHILE. 


Figure  3-14.  Nyquist  Algorithm 


range  of  frequencies  from  10" 3  radians/second  to  10*5 
radians/second  and  automatically  plot  the  resultant 
Nyquist  graph  on  a  50  x  50  scale.  The  user  may  also  choose 
to  plot  open-loop  or  closed-loop  response.  If  the  open- 
loop  response  is  desired,  the  G-equivalent  block  is  used. 
If  the  closed-loop  response  is  selected,  then  the  procedure 
described  in  Section  C.  is  used  to  compute  the  equivalent 
unity-feedback,  closed-loop  system  transfer  function  prior 
to  calculating  the  Nyquist  response. 

The  program  implementation  consists  of  two 
procedures,  "Bode"  and  "Plot_Nyquist " .  As  described  above, 


the  procedure  Bode  doubles  as  both  the  Bode  and  Nyquist 
calculation  procedure.  The  routine  Plot_Nyquist  actually 
implements  the  graphics  which  plots  the  Nyquist  numbers 
generated  in  the  Bode  subprogram. 

Within  the  Plot_Nyquist  routine  is  a  call  to  the 
procedure  "Graph_Menu" .  Graph_Menu  is  called  by  all 
procedures  which  produce  a  graph.  It  provides  a  pop-up 
menu  offering  the  user  the  opportunity  to  add  a  title  to 
the  graph  just  plotted,  print  the  graph  on  a  printer,  print 
the  numbers  used  to  generate  the  graph,  or  quit  and  return 
to  the  Main  Menu. 

If  the  user  elects  to  title  the  graph,  the  plot  is 
swapped  onto  a  "virtual  screen"  in  memory  and  a  text  screen 
appears  offering  the  user  three  blank  lines  to  type  in  his 
title.  When  the  title  is  completed  the  plot  is  returned 
tothe  physical  screen  and  a  window  is  drawn  with  the  title 
text  inside.  Since  there  is  no  way  to  tell  a  priori  where 
on  the  screen  the  important  part  of  the  plot  will  be 
located,  the  title  block  can  be  relocated  anywhere  on  the 
screen  by  using  the  cursor  arrow  keys.  When  the  title  box 
is  where  the  user  wants  it,  the  <Return>  key  is  pressed 
thus  freezing  its  position  and  recalling  the  graph  options 
menu  to  the  screen.  The  option  which  allows  the  user  to 
print  the  graph  will  first  remove  the  menu  options  block 
from  the  graph  and  dump  the  remaining  screen  information  to 


the  printer.  If  the  user  decides  to  instead  print  the 
numbers,  the  procedure  is  slightly  more  complicated. 

The  "dump  numbers"  mode  saves  the  current  graphics 
screen  and  offers  the  user  a  choice  to  print  the  data  to 
the  printer  or  a  pre-selected  data  filename  on  disk.  For 
most  of  the  graphics  routines,  the  number  of  points  is  too 
large  to  store  in  a  matrix  when  they  are  computed  to  plot 
the  graph.  Therefore,  when  the  option  to  print  the  numbers 
is  selected,  the  same  computations  are  repeated  again,  and 
the  numbers  are  printed  or  stored  to  a  disk  file  rather 
than  used  to  plot  the  graph.  The  user  should  be  cautioned 
that  because  of  the  large  number  of  points  calculated  and 
plotted,  the  length  of  the  printer  listing  can  be 
excessive.  If  only  a  few  data  points  are  of  interest,  the 
print  to  a  file  option  is  the  better  choice.  Then  the  user 
can  scan  that  file  with  a  word  processor  or  the  MS/DOS 
"type"  command  and  examine  the  points  of  interest. 

2 .  Bode  Plot 

Most  of  the  features  of  the  Bode  algorithm  has  been 
discussed  in  the  above  explanation  of  the  Nyquist  plot. 
The  major  difference  between  the  Bode  and  Nyquist  routines 
is  the  manner  in  which  the  information  is  displayed.  The 
Bode  graph  displays  two  separate  plots  of  magnitude  and 
phase  versus  radian  frequency.  The  magnitude  plot  is 
converted  to  decibels  using  the  relation 
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MagndB  =  201ogi  o  (Magn) 


and  the  phase  is  converted  to  degrees  by  computing 

Phasedeg  =  ( 180/7T)  (Phase)  . 

The  frequency  is  plotted  on  a  logarithmic  3cale  along  the 
abscissa.  The  plots  of  magnitude  and  phase  are 
superimposed  on  the  same  graph  with  the  ordinate  values  of 
-180°  phase  and  OdB  magnitude  aligned.  This  is  convenient 
for  the  designer  when  reading  gain  and  phase  margin  from 
the  graph.  Since  phase  margin  is  read  at  the  zero 
crossover  of  the  magnitude  curve  and  gain  margin  is  read  at 
the  -180o  crossover  of  the  phase  curve,  these  values  can  be 
read  directly  without  shifting  either  curve  up  or  down. 

The  program  implementation  is  much  like  that  used 
for  the  Nyquist  procedure.  The  Bode  routine  calculates  the 
numbers  required  for  the  plots  and  the  procedure 
"Plot_Bode"  then  converts  the  numbers  to  a  graphical 
display.  The  same  procedure  applies  with  regard  to  the 
supplemental  graph  options  menu  as  with  the  Nyquist 
routine . 

E .  ROOT  LOCUS 

The  root  locus  procedure  implemented  in  this  routine  is 
a  "single  parameter",  or  "gain  locus".  It  graphically 
represents  the  movement  of  the  roots  of  the  system’s 
closed-loop  characteristic  equation  on  the  S-plane  while 
varying  the  system  gain.  Since  the  location  of  the 
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Go.i.  (s)  =  K  P( s )  where  P(s),  Q(s)  are  polynomials. 

Q(s) 

and 

Gc.i.  (s)  =  KKv  PCs)  where  Kv  is  the  variable 

Q(s)+K*P(s)  gain. 

then 

PLOT  {open  loop}  Zeros. 


WHILE  Kv  <  Kma*  THEN  DO 


F.  TWO-PARAMETER  ROOT  LOCUS. 

The  two-parameter  root  locus  is  one  of  the  more 
interesting  routines  in  the  LCS-CAD  package.  It  is  useful 
in  a  number  of  design  situations  including  the  most  simple 
case  of  designing  a  cascade  compensator.  An  example  is 
given  in  Figure  3-16.  The  system  is  to  be  compensated  with 
a  single  cascade  compensator  with  one  pole  and  one  zero. 
If  the  blocks  are  combined  into  a  single  equivalent  block 
and  the  closed  loop  characteristic  equation  is  derived,  the 
resultant  polynomial  will  be  a  function  of  two  unknown 
parameters  "a"  and  "b".  These  two  parameters  define  the 
location  of  the  pole  and  zero  of  the  compensator  and  as 
they  are  varied,  the  response  of  the  system  is  changed.  If 
a  locus  of  the  roots  is  plotted,  the  designer  can  see  the 
effects  of  changing  the  compensator  pole  and  zero  on  the 
overall  system  response. 

The  LCS-CAD  procedure  works  in  much  the  same  manner  as 
in  the  preceding  example.  The  program  must,  however,  be 
able  to  parse  the  user’s  characteristic  polynomial 
coefficient  equations  in  order  to  ''understand”  the 
relations  and  be  able  to  iteratively  substitute  in  values 
for  a  and  b.  The  simplified  algorithm  is  outlined  in 
Figure  3-17. 

The  user  is  requested  to  provide  the  desired  limits  on 
the  parameters  a  and  b  and  to  decide  whether  to  "step"  a  or 


Given  a  system  G(s)  and  a  compensator  Gc(s) 


G(s)  =  100 

s ( 0 . Is  +  1) 


Go  ( s  )  =  s  +  a 
s  +  b 


then  the  closed  loop  equivalent  transfer  function  is 

Ge  q  (  s  )  = _ IQOOfs  ±  a) _ 

1000(s  +  a)  +  s(s  +  10)(s  +  b) 

and  the  characteristic  polynomial  is 

C.P.  =  s3  +  (10  +  b)  s2  +  (10b  +  1000)  s  +  1000a 

If  "a"  is  to  be  varied  from,  say,  10  to  20  and  "b"  from 

50  to  200  then,  substituting  the  initial  values  into  the 

characteristic  equation  yields  ; 


C.P.  =  S3  +  60  s2  +  1500  s  +  10000 
the  roots  of  which  are 

(s  +  10)  (s  +  25  ±  J19.37) . 

These  roots  are  plotted  and  a  or  b  is  incremented  and 
the  process  repeated  through  the  range. 

Figure  3-16.  Two-parameter  Root  Locus  Example 


This  input  page  is  shown  in  Figure  3-18  for  the  example 
problem  given  earlier.  The  parameter  that  is  stepped  is 
varied  through  five  discrete  values  within  its  range  and 
for  each  of  these  values,  the  other  parameter  is 
incremented  fifty  times.  This  produces  a  "family"  of  locus 
curves.  Either  a  or  b  may  be  stepped  at  the  user’s  option. 
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Next  the  user  must  provide  a  window  size  for  viewing 
the  root  locus.  This  is  handled  in  much  the  same  manner  as 
described  for  the  single-parameter  root  locus  routine. 
Finally,  the  coefficient  equations  must  be  input.  Figure 
3-19  shows  a  completed  page  for  the  example  third  order 
system  equation  input. 


***  Two  Parameter  Root  Locus  -  Coefficient  Input  *** 


3 

s  =1 

O 

<-• 

s  =  10  +  B 

1 

s  =  (10*B)+  1000 

0 

s  =  1000*A 


Press  <F1>  to  change  previous  entry 


Figure  3-19.  Two-parameter  Root  Locus  Coefficient  Input 


Note  that  the  equations  are  input  in  algebraic,  or 
"infix"  notation.  The  available  operators  include  (+) 
addition,  (-)  subtraction,  (*)  multiplication,  (/) 
division,  and  ( ~ )  exponentiation.  These  operators  follow  a 
hierarchical  precedence  with  exponentiation  operations 
being  done  first,  followed  by  multiplication  and  division, 
and  finally  addition  and  subtraction.  Operations  like 
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multiplication  and  division  which  have  the  same  precedence 


are  performed  from  left  to  right  when  conflicts  arise.  To 
change  this  order  of  precedence,  parentheses  may  be  used 
around  any  set  of  operations.  These  parenthetical 
expressions  have  the  highest  priority  and,  when  nested,  the 
innermost  operations  within  parentheses  are  done  first. 
This  scheme  follows  closely  the  protocol  used  in  most 
calculators  and  high  level  programming  languages. 

Infix  notation,  while  convenient  for  the  program  user, 
does  not  lend  itself  well  to  computer  manipulation.  A 
better  way  to  represent  equations  for  the  computer  is  the 
so  called  "reverse  Polish  notation".  In  reverse  Polish 
notation,  the  operands  of  an  equation  are  entered  first 


followed  by  the  operator. 


Por  example,  the  infix 


expression 


3*4  +  5 


would  be  represented  as 


3  4*5  + 


in  reverse  Polish  notation.  The  numbers  3  and  4  are 
entered  and  multiplied,  then  5  is  entered  and  added  to  the 


previous  result 


Using  the  concept  of  a  "stack"  the 


reverse  Polish  expression  is  easy  to  evaluate. 

Recall  that  a  stack  is  a  last-in-first-out  queue  whose 
operation  is  analogous  to  a  stack  of  trays.  To  operate  the 
stack,  the  program  calls  a  "push"  procedure  to  place  an 


item  on  the  stack,  and  a  "pop"  procedure  to  remove  the  top 


item.  Now,  using  the  example  given  above,  an  arithmetic 
evaluation  procedure  can  be  illustrated.  Figure  3-20 
demonstrates  such  an  implementation. 


3 

4 

(4,3  *)=  12 

5 

(5,12  + ) =17 

17 

<-stack-> 

3 

{pop4} 

{pop3} 

{multiply} 

12 

{pop5} 

{popl2} 

{add} 

{push  3}  {push  4}  {push  12}  {push  17} 

{push  5} 

Figure  3-20.  Stack  Operation  Example 
The  basic  equation  evaluation  algorithm  can  be  outlined 
then  in  three  steps : 

(1)  Scan  the  reverse  Polish  equation  term-by-term. 

(2)  If  the  term  is  a  constant  then  push  it  onto  the 
stack. 

(3)  If  the  term  is  an  operator  then  pop  the  first  two 
items  off  the  stack,  apply  the  operator,  and  push 
the  result  back  onto  the  top  of  the  stack. 

When  the  algorithm  is  completed  the  answer  to  the 

expression  will  be  on  the  top  of  the  stack. 

To  get  the  infix  equation  into  reverse  Polish  form  is  a 

bit  more  difficult  than  simply  evaluating  the  Polish 

expression.  Of  special  consideration  when  building  the 

Polish  form  of  the  equation  are  the  operator  priorities  and 

the  use  of  parenthesis  to  change  those  priorities.  A  set 

of  rules  can  be  written  which  outline  the  conversion 

procedure  [Ref.  2].  These  rules  are  listed  in  Figure  3-21 


along  with  an  illustrative  example  of  their  application. 


Given  the  infix  expression: 


6+  (5  -4/  2)  *3 


and  the  following  operator  priority  table: 


Operator 


*,/ 

+ ,  _ 

operands 
( , ) , spaces 


Priority 

4 

3 

2 

1 

0 


Using  a  result  string  called  RPN,  and  an  operator  stack 
the  rules  for  infix  to  reverse  Polish  conversion  follow: 


RULE 

(1)  If  an  operand  is  encountered,  move  it  to  RPN. 

(2)  If  an  operator  is  encountered,  move  all  higher 

priority  operators  on  the  stack  to  RPN  and  push 
the  new  operator  onto  the  stack. 

(3)  If  a  left  parenthesis  is  encountered  push  it  onto 

the  stack. 

(4)  If  a  right  parenthesis  is  encountered,  pop  all 

operators  off  the  stack  and  append  them  to  RPN 
until  a  left  parenthesis  is  encountered. Discard 
both  parentheses. 

(5)  When  finished  with  the  infix  expression,  pop  all 

remaining  operators  from  the  stack  and  append 
them  onto  RPN. 


Applying  these  rules  to  the  example  problem  above  gives 


RPN 

STACK 

INFIX 

RULE 

6+ ( 5  -  4  /  2  )  *3 

6 

+(5  -  4  /  2 ) *3 

1 

6 

+ 

(5  -  4  /  2 )*3 

2 

6 

+  ( 

5  -  4  /  2 )*3 

3 

6  5 

+  ( 

-  4  /  2 ) *3 

1 

6  5 

+  (  - 

4  /  2 )*3 

2 

6  5  4 

+  (  - 

/  2 )  *3 

1 

6  5  4 

+  (  -  / 

2 )  *3 

2 

6  5  4  2 

+  (  -  / 

)*3 

1 

6  5  4  2  /- 

+ 

*3 

4 

6  5  4  2  /- 

+  * 

3 

2 

6  5  4  2  /  -  3 

+  * 

1 

6542/-3*  + 

Figure  3-21. 


Rules  for  Conversion  from  Infix 
to  Reverse  Polish 


The  LCS-CAD  routine  to  compute  and  display  the  two 
parameter  root  locus  is  called  "TwoParameterRootLocus “ .  It 
calls  several  sub-programs  including  " Inf ix_to_Polish" 
which  does  the  conversion  of  the  coefficient  expressions  to 
the  reverse  Polish  form,  and  "Compute_Polish"  which 
evaluates  the  reverse  Polish  expressions.  Other 
procedures,  like  'Coef f _Input " ,  "Select_Parameter_Range " , 
and  "Select_Window_Size"  ,  prompt  the  user  for  information 
required  by  the  program. 

Figure  3-22  shows  the  two-parameter  family  of  curves 
generated  by  the  program  for  the  sample  problem  introduced 
at  the  beginning  of  this  section.  The  designer  wishes  to 
place  the  system  poles  at  a  specific  location  on  the  S- 
plane,  the  plot  will  enable  him  to  see  qualitatively 
whether  or  not  it  is  possible  with  a  given  set  of 
parameters  varying  over  specified  ranges.  A  printout  of 
the  numbers  used  to  generate  the  plot  can  then  be  examined 
for  the  values  of  a  and  b  necessary  to  place  the  poles  in 
the  desired  locations. 

As  with  all  the  other  graphing  routines,  the  options 
menu  appears  after  the  plot  is  generated  giving  the  user 
the  opportunity  to  title  the  graph  or  print  the  graph  or 
its  corresponding  numbers .  An  additional  window  appears  on 
this  graph  to  show  a  legend  for  easy  curve  identification. 


Figure  3-22.  Two-parameter  Root  Locus  Family  of  Curves 

G.  TIME  RESPONSE 

The  time  response  module  give3  the  user  the  capability 
to  see  how  the  system  will  respond  to  a  "standard",  input  in 
the  time  domain.  The  user  can  subject  his  system  to  a 
choice  of  step,  ramp,  impulse,  or  sinusoid  inputs.  Since 
most  design  work  will  be  done  in  the  frequency  domain,  this 
module  will  give  the  designer  a  tie-in  to  the  time  domain 
and  thereby  a  physical  interpretation  of  the  system’s 
response . 

The  time  response  algorithm  first  converts  the 
continuous-time,  input-output  description  of  the  system 
into  a  discrete-time,  state-space  equivalent.  The  states 


of  the  system  at  any  time  and  the  output  can  then  be 
generated  knowing  only  the  input  and  the  previous  system 


states.  This  process  is  repeated  for  discrete  time  steps 
until  the  desired  end  time  is  reached.  This  method  is,  of 
course,  not  the  only  approach  available.  Numerical 
differential  equation  solvers,  particularly  the  Runga-Kutta 
method,  are  often  used  to  solve  this  type  of  problem.  The 
" sampled-data"  method  was  compared  to  the  Runga-Kutta  and 
performed  favorable  when  using  a  small  step  size  and  a 
large  number  of  samples. 

The  first  step  in  solving  the  time-response  problem  is 
to  convert  the  input-output  representation  into  a  matrix 
form.  An  example  of  this  conversion  procedure  is  shown  in 
Figure  3-23.  The  form  of  the  A-matrix  is  always  the  same 
with  one’s  along  the  upper  co-diagonal  and  the  transfer 
function  denominator  coefficients  along  the  bottom  row. 

This  is  the  so-called  "companion  form"  [Ref.  3].  Likewise, 
the  C-matrix  contains  the  coefficients  of  the  denominator 
polynomial.  The  single  B-matrix  entry  indicates  that  the 
system  only  has  one  input  as  expected. 

To  convert  the  system  to  a  discrete-time  equivalent, 
the  continuous-time  system 

x(t)  =  A&(t)  +  fiu(t) 
y(t )  =  Cx( t ) 

must  be  "mapped"  into  the  system 


2£(k+l)  =  $£(k)  +  Lu(k) 
y(k)  =  Cx(k) . 


where  T  is  the  sampling  period  and  u.  is  defined  as 

t 

P  «  AKTk 

H(T)  =  J  eAa  da  =  T  2  (k+1) ! 

0  k  =  0 

This  infinite  series  expansion  for  p.  can  be  approximated 
by  taking  enough  terms  to  ensure  precision  to  some 
acceptable  value.  Once  the  p  matrix  has  been  computed, 
then  the  $  and  T  matrices  can  also  be  calculated.  Assuming 
zero  initial  conditions  for  all  the  states  at  time  t=0 

gives  a  starting  point  from  which  the  states  at  t  =  0  +  t 

may  be  computed,  and  so  on  until  t  =  tmax .  Since  the 

output  of  the  system  is  simply  one  of  the  states,  it  can  be 

extracted  from  the  computations  and  plotted. 

The  LCS-CAD  procedure  which  implements  the  time 
response  module  is  called  "TimeResp" .  The  algorithm  is 
outlined  in  Figure  3-24.  The  actual  program  implementation 
appears  more  complex  because  of  the  mechanics  of  performing 
the  matrix  and  vector  operations.  This  is  simplified 
somewhat  by  the  procedures  "Matrix_Multiply "  which 
multiplies  two  sq  are  matrices  together, 

"Matrix_Vector_Mult"  to  multiply  a  matrix  and  a  vector 
together,  and  "Scalar_Mult "  which  multiplies  each  of  the 
elements  of  a  matrix  by  a  scalar  constant. 

The  time  increment  is  set  to  a  constant  value  of  0.0005 
seconds  giving  2000  calculation  increments.  Because  of  the 


time  required  to  plot  all  these  increments,  only  one  in 
five  points  are  actually  graphed. 


Given  a  closed-loop  transfer  function  of  the  form: 

G  ( s  )  =  K  an  sn  +  an  - 1  sn  ~ 1  +  ...  +  ai  s  +  ao 
bm sm  +  bm-i  s^-i  +  .  .  .  +  bi  s  +  bo 

where  m  >  n  and  K  is  block  gain.  If  T  is  to  be 
the  sampling  time,  then 

***  Fill  the  A-matrix  *** 

FOR  i ,  j  =  1  TO  m  DO 

IF  j  =  i+1  THEN  SET  A[i,j]  =  l.{l’s  in  upper 
ELSE  SET  A[i,j]  =  0.  co-diagonal} 

ENDIF. 

ENDFOR. 

FOR  i  =  1  TO  in  DO 

A[m,i]  =  -bi .  {denom.  coeff  along  bottom  row} 
ENDFOR. 

***  Fill  the  C-matrix  *** 

FOR  i  =  1  TO  n  DO 

SET  C[i]  =  ai  *  K. 

ENDFOR. 

***  Initialize  Psi  and  Atemp  *** 

SET  Atemp  =  A. 

SET  Psi  =  I  +  (A  *  T/2).{this  is  first  term  in  series} 
***  Compute  additional  series  terms  *** 

WHILE  Maxrowsum  >0.1%  DO  {check  contribution  of  next 

term  in  series} 

SET  k  =  2. 

SET  Psi  =  Psi  +  (Ak  *  T*)/(k  +  1)!. 

ENDWHILE. 

SET  Psi  =  Psi  *  T. 

***  Calculate  the  Phi  Matrix  *** 

SET  Phi  =  I  +  (A  *  Psi). 

***  Calculate  the  Gamma  Vector  *** 

SET  Gamma  =  Psi[i,m]  {since  input  vector  U  is 

[00  ...  0  1]T  ,  Gamma  is  last 
column  of  E’si  matrix} 

***  Compute  the  next  state  vector  *** 

SET  xold  =0.  SET  t  =  0. 

WHILE  t  <  tmax  DO 

SET  xnext  =  Phi  *  xold  +  Gamma  *  input. 

SET  y  -  C  *  xold. 

PLOT  y. 

SET  xold  =  xnext 
SET  t  =  t  +  t. 

ENDWHILE. 


Figure  3-24.  Time  Response  Module  Algorithm 


H.  UTILITIES 


Several  utility  procedures  are  available  from  within 
the  LCS-CAD  program.  These  enable  the  user  to  display  the 
current  loop  blocks  in  either  polynomial  or  factored  form, 
or  to  enter  an  arbitrary  polynomial  and  have  the  program 
find  and  display  the  roots.  There  are  three  procedures 
which  implement  these  functions.  The  first  is 
"ShowFactors"  which,  as  the  name  implies,  allows  the  user 
to  view  the  loop  blocks  in  factored  form.  The  procedure  is 
essentially  an  on-screen  formatting  routine  since  the 
factors  of  every  block  have  already  been  calculated  and 
stored  in  the  block  record. 

The  second  procedure  is  "ShowPoly" .  It  is  the 
complementary  routine  to  ShowFactors.  It  formats  the 
polynomial  form  of  the  loop’s  block  transfer  functions  on¬ 
screen  for  viewing.  Here  too,  no  numeric  calculation  is 
required  as  the  block  polynomial  coefficients  are  available 
in  the  block  record. 

The  third  procedure  is  called  "UserPoly " .  This  routine 
allows  the  user  to  input  the  coefficients  of  a  polynomial 
and  then  calls  the  subprogram  "RootFinder "  (discussed 
earlier)  to  find  the  roots  of  the  polynomial.  The  program 
then  displays  the  factors  in  much  the  same  manner  as  the 
ShowFactors  routine. 
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I.  HELP  SCREENS 


LCS-CAD  has  on-line  help  available  from  any  of  the 
three  menus.  The  help  screens  are  invoked  from  menus  which 
resemble  the  program  menu.  From  the  help  menus  the  user 
may  select  any  of  the  choices  normally  available  to  him 
from  the  program  menus  and  help  screens  will  be  displayed 
with  help  information  specific  to  the  function  selected. 

From  the  Main  (program)  Menu,  the  user  may  select 
<H>-HELP.  This  will  bring  up  the  Main  (help)  Menu.  If  the 
user  select  help  with  the  <I>  Input/Change  function,  a 
second  help  menu  is  displayed  much  as  it  is  with  the  main 
menu  selections.  From  there,  the  user  may  select  any  of 
the  input  menu  choices  and  one  or  more  help  screens  for 
that  choice  will  be  displayed.  A  similar  secondary  help 
menu  is  displayed  if  the  <U>  Utilities  help  is  requested. 

Unlike  the  Main  Menu  help,  which  can  get  help  for  any 
of  the  other  menu  items,  if  the  user  is  in  the  Input  Menu 
or  the  Utilities  menu  and  galls  for  help  from  there,  only 
the  Input  Help  Menu  or  Utilities  Help  Menu  respectively 
will  be  displayed.  Figure  3-25  shows  the  relationship  of 
the  help  screens  to  the  program  menus. 


MAIN 

MENU 


MAIN 

HELP 


INPUT 

MENU 


******[ 
* 


* 

* 

* 

* 


* - 1 

*  1 

INPUT  1 

HELP 

1 

UTILITY 

HELP 

Figure  3-25.  Help  Available  within  LCS-CAD 


IV.  SUMMARY-  AND  RECOMMENDATIONS 


The  LCS-CAD  program  is  a  useful  and  powerful  tool  for 
the  designer  and  a  simple  and  easy  to  use  package  for  the 
student.  The  program  supports  most  of  the  major  design  and 
analysis  tools  required  for  continuous-time,  linear  control 
system  work  including  Bode,  Nyquist,  single-  and 
two-parameter  root  locus,  time  response,  and  automatic 
transfer  function  block  manipulation. 

The  program  does,  however,  have  its  shortcomings  and 
areas  where  improvements  are  possible.  Several  of  these 
areas  are  discussed  below. 

(1)  Currently,  the  program’s  size  is  constrained  by  the 
limits  of  the  Turbo  Pascal  compiler.  The  routines 
could  be  made  to  run  faster  and  the  code  size 
streamlined  if  the  code  were  translated  into  another 
language  which  supported  memory  usage  beyond  the  64K 
limit  imposed  by  Turbo  Pascal.  This  would  eliminate 
the  need  for  chaining  program  segments  into  and  out 
of  memory  to  disk.  This  project  should  not  be 
undertaken  lightly,  since  Turbo  Pascal  is  unique  in 
its  support  for  low-level  system  calls  and  in-line 
assembly  language  code,  both  of  which  are  used  in 
LCS-CAD  routines.  The  best  potential  alternative 
choice  for  a  language  now  appears  to  be  Modula-2. 
It  is  similar  to  Pascal  in  construct,  but  allows 
full  memory  use  and  at  least  one  such  compiler  now 
available  (LogiTech  Modula-2)  appears  to  support 
most  Turbo  Pascal  functions. 

(2)  Additional  modules  could  be  added  to  the  software. 

A  Parameter  Plane  module,  for  instance,  could  be 
added  to  enhance  the  value  of  the  package.  This  is 
yet  another  tool  which  is  a  bit  more  sophisticated 
and  can  be  applied  to  more  difficult  design  problems 
than  the  tools  currently  in  the  LCS-CAD  system. 
Another  possible  candidate  module  for  inclusion  in 
the  package  is  the  "Function  Minimization" 


a 


subroutine.  This  routine  allows  the  user  to  select 
a  "cost  function"  and  the  program  will  vary  the 
parameters  of  the  problem  to  minimise  the  cost 
function.-  This  is  a  type  of  optimal  control  method. 

(3)  Several  improvements  to  existing  routines  could  be 
made.  These  are  listed  below  in  no  particular  order 
or  significance. 


1 


Adding  a  moveable  cursor  to  the 
graphics  screens  to  allow  the  user  to 
"point"  to  an  area  of  interest  on  a 
curve  and  have  the  important  parameters 
printed  on-screen.  For  instance,  in 
the  Bode  routine,  the  user  could  move  a 
cursor  to  the  gain  crossover  point  and 
have  the  frequency  and  the  phase  margin 
printed . 

Adding  the  ability  to  handle  the  state- 
space  form  of  input.  Currently,  only 
the  input-output  description  of  a 
system  is  allowed,  although  the  state- 
space  form  is  used  extensively  in  the 
time  response  module  for  computation. 
This  would  add  even  greater  flexibility 
to  the  user’s  choice  of  input. 

Additional  error  trapping  routines  need 
to  be  added  to  the  program.  Fairly 
extensive  efforts  have  been  applied  to 
keep  user  inputs  from  "bombing"  the 
program,  however,  when  an  error  occur? 
and  aborts  the  program,  it  can  be  most, 
frustrating  to  a  user.  DOS-level 
interrupt  handlers  can  be  written  to 
take  care  of  most  common  error  like 
divide-by-zero  and  I/O  faults.  These 
programmed  interrupt  handlers  can 
override  the  default  DOS  handlers  which 
issue  a  cryptic  message  and  abort  to 
the  operating  system. 

A  "zoom"  feature  is  needed  on  the 
graphics  routines  which  will  allow  the 
user  to  change  the  plotting  scales 
without  rerunning  the  entire  graphics 
routine  again.  This  may  be 
accomplished  with  strategically  placed 
IF/THEN  statements. 
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e.  A  more  sophisticated  input  routine  may 
be  devised  to  allow  the  user  to  input 
the  ENTIRE  block  diagram  with  multiple 
loops.  The  difficulty  of  implementing 
this  option  is  to  maintain  a  user 
interface  which  is  simple  and 
intuitive.  Block  interconnections  and 
feedback  path  descriptions  can  easily 
become  confusing  and  ambiguous. 

f.  Add  the  capability  of  the  program  to 
handle  discrete  time  systems  described 
by  Z-domain  functions. 

These  suggestions  for  future  improvements  to  the  LCS- 
CAD  program  represent  specific  changes  as  well  as  areas  for 
broader,  more  in-depth  work.  The  modular  nature  of  the 
program  structure  and  its  menu-driven  format  make  it  a 
simple  matter  to  append  additional  subroutines.  The  Pascal 
language  with  its  inherent  top-down  structure  makes  for  a 
more  readable  program  and  enables  follow-on  programmers  to 
quickly  and  easily  understand  the  algorithm  implementation 
and  alter  it  to  suit  their  needs. 

LCS-CAD  is  a  full-featured  engineering  program  written 
to  operate  on  the  most  popular  desk-top  computer  available 
today.  With  periodic  maintenance  and  updates,  this  program 
can  meet  the  needs  of  control  system  designers  and  student 
for  many  years  to  come. 
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These  u  t i 1 i t 

TUP'BO-UT  .  PAS  were  written  by: 

Donald  R .  Ramsey 
Larry  Romero 
727  Bunker  Hill  #70 
Houston,  Texas  77024 

and  distributed  through  the  public  domain.  The  utilites  con  sis 
number  o f  procedures  and  functions  which  allow  the  programmer  to 
write  sophisticated  m e  n  u i n  g  systems  and  input  routines.  These  u 1 1 
were  used  extensively  i n  building  L  C  S - C  A  D . 

The  following  documentation  describes  how  the  programmer  shot'. 
the  procedures  and  function  in  a  program  including  calling  met  ho 
parameter  constraints. 

DOCUMENT AT i ON  FORM ; 

The  procedures  will  be  given  in  the  following  fc“m; 

Procedure  name( Variable  1 ,  {  type  y a r :  d e s cription  of  v a r  ; 

Variable  n )  {  type  v a r :  description  of  v a r  ' 

Description  of  routine  and  calling  method. 

Discussion  if  necessary. 

wnat  is  returned  to  the  main  program. 

PROCEDURES: 

M 5 q  i  String  {  s t r :  string  to  be  displayed  } 

Col ,Row>  i  i n t :  Column  !  row  for  display; 

Description:  Display  a  message  at  the  specified  column 


CvvvWv 


;  0  G  1  5  u  1  d  ' ''  5  3 


C-o  1  ,  Row  ,  {  int:  Coi  ■:<  r  o  w  to  cents  r  o  n  )• 

Lina  length)  1  int:  length  o f  line  to  center  or  ! 

Description:  clear  the  line  to  center  on  troa  the  c  o  1  .  r  .;•  v 
to  the  iine-ienqtn,  then  Center  the  string  on  this  i  l n « 


!nvViaeo(  String  )  {  str:  String  to  display  in  inverse  v i t 

Description:  display  a  string  in  inverse  video  a n o  return 
to  the  calling  routine  with  the  background  set  to  black 
and  the  tent  white. 


Color (BackGnd  ,  {  int:  the  desi red  b a c k ground  coin r  J 

I  •;  t  i  \  int:  the  color  tor  the  tent 

Description:  color  the  video  as  desired. 


i  ’  X  i  . v  i  ,  (  int:  upper  left  col  ■?:  row  for  frame  } 

X  2  ,  V  2  ,  {  int:  lower  right  col  &  r o w  ) 

divider) <  int:  the  row  poeition  for  a  dividing  line) 
Description:  draw  a  bon  that  has  an  optional  line  as  a 
divider,  it  you  do  not  wish  to  have  the  extra  line 
divide  the  box,  just  set  Z  =  Yl. 


Option; 

Descriotisn:  allow  the  user  to  press  a  lev  and  ret u r o 
that  character  as  an  !ooer  character  to  the  cai line 


Returned  :  Ch  (  upper  case  ) 


2 1  r l o  t  o  a  c  e  =  \  Birina, 


:  r  i  a  c  i  •-  n 


^  e  t  u  r  n  e  a 


3 1  r  i  n  a  .  {  str:  s  t  r  i  n  q  to  strip  spaces  from  end 

N e w 5 1 r  '  {  str:  v  a r i a □ 1 e  to  ret u r n  } 

:  Strip  spaces  from  the  end  of  a  string. 

:  N e w 3 1 r  is  a  variable  parameter  that  is  r e t u r n e o 
to  the  calling  routine. 


\"V 


-.v.v  v.'.-; 


vo  v. 


jtiAjA  k^a  A.1 


V>. 


A  -\  *\  *\ 

x  V.«  L.-a  V 


l,  i  r  v  -  n  c  a  i  ,  r  i  ,  \  int!  upper  o*  area  to  clear  t 

X 2  ,  Y 2 )  {  1  n  t :  lower  right  o  f  area  to  clear  ' 

Description:  this  is  an  alternate  ire t hod  to  that  at 
defining  a  window  and  doing  a  CLRSCR  for  that  winnow. 

The  advantage  of  this  method  is  that  the  original 
window  is  left  intact  and  operations  can  be  o a r * o r a e d  w  i  o  h  o  i 
keeping  tr ac k  of  the  original  window.  The  disadvantage  is 
that  it  is  a  little  slower  than  CLRSCR. 


•-  3  »  5  2  c  r  9  9  P 

Description:  save  a  video  display  in  memory  for  a  q u i c >■ 
flash  back  when  necessarv , 


r  1  ash  Screen 

Description:  this  routine  will  re-display  tne  screen 
by  the  SaveScreen  procedure. 


? e p  1  Tone,  {  i n t :  the  tone  to  sound  (Ex:  350  )  > 

Duration!  C  int:  the  time  to  delay  (Ex:  500  )  } 
Description  turns  on  a  tone  for  tne  desired  duration 
then  terminates  the  sour g .  You  may  test  tne  sounds 
b v  r unn i pq  TSTSOUND . COM, 


:  a  /  _  r  a  p  _  n  it 

Description:  display  on  the  2 5 1 n  line  o t  tne  s c r 
the  current  status  of  the  CAR,  MUM .  Ins  keys, 


m {  Caps, 

*- 

c  h : 

5  p  r 

to  '  C 

far 

caps  ) 

Hum  , 

{ 

ch : 

set 

to  r'l 

t  o  r 

n  urns  } 

!  n  s ) 

{ 

ch : 

5  0  t 

to  I 

■for 

insert  } 

ion:  e  9 1 

t  h  r  1 

'  9  0 

a  d  a 

s  o  e  s ; : 

■“  p  rj  b  V 

the  p  r  o g r  a  m  t  e  r 

Pi;  r  5  p  r  'w; 

n  '  '  C 

,  H 

l  * 

■ 

w ill  set 

[he 

cap 

i  o  c 

*:  ,  ’.10 

r  u  ;ii  : 

o  c  k  ,  a  n  d  t  v  "■  n 

i  t  z  9  r  t  c  n  « 

:  t  vP  ,  N  ‘  , 

“i  iii  9  e  t  o  n  i  y  t h  e  n  l-  rr*  lac 


f’ c- 


V  %'  V  V 
V  'V 


rj  -rj  -  j~_  * 


•ad  i '  "  5  y  ;  ■_  r  ;  !.  c1" :  variable  ret  u  r  nea 

)es  •miction;  A  *■  o  u.  t :  r  e  t  c  d  9 1 0  *■  m  1  n  e  it  an  adit  >•  e  v 
arrow  Key,  etc, ;  or  a  ♦unction  Key  was  o-essed . 


Discussion  :  IB !•*  ret u me  a.  two  byte  string  f 0 r  a n 
or  tunc t i on  key  that  is  pressed .  In  or a er  to  t 
2  byte  string  you  must  read  the  keyboard  twice 
the  second  byte  tor  the  edit  c r  ^unction  key  'J 
you  .-Bust  read  the  KBD  ‘or  a  character  and  it  a 
pressed,  call  the  routine  1  the  or ocedur e  ooes 
R E A D  f k b d  ,  c h  ? ) ,  At  present,  only  the  edit  k e  v s 
10  function  keys  are  checked .  However,  you  cou 
etpana  the  procedure  to'  check  the  shift  states 
Example  call: 

R  E  A  D  i  k  b  d  ,  c  h )  ; 

if  keypresssd  Ck _ed i t _ksy ( Ch i ; 


w  1  c  e  ,  t  e  s  c  1  g 
e  y  v 5 1 u e .  5c, 
i  f  a  t e  y  is 
oss  t  h  s  s  e  c  0  r 
e  v s  and  t  h  9 
could  e  a s 1 1 

a  r  p  =  ,  p  r  r  , 


", p t u. r n e d  ;  the, procedv  re  will  modify  the  v aria b  1  e 

C h  if  one  of  the  edit  or  function  k  e  v  5  was  pressed  or 
leave  Ch  as  it  was  in  the  first  READ  iked  .ch  •'  1  *  no  edit  1 
function  key  was  pressed ,  You  should  look  at  the  routine 
to  Determine  what  Ch  will  return  1  f  it  has  been  m  c  d  i  ♦ 5  0 
II  always  ha  /e  to  la 0 k  .  but,  I  kno w  the  f  u n c 1 1  a n  v s v s 
w ill  ret u r n  a  for  :  "  1  ,  .  .  .  ,  1  for  FA  .  '  j  for  •  c  i  7  .  •  . 


■  t  template  i  tempi  ate_nu.9  {  1  n  t :  t n e  0 u m b e '  of  the  tempi 
template  1  l  5 1 r :  variable  re t u r n e d  r  c  :  s 

0 ? a c r  1  p 1 1  o n  :  get  the  r s 0 u  1  r  a .3  t 3 ,t p  1  a t  s  *  0 -  use  >  1  ms 

1  n a !.: t  or oce d  1, r 0 , 


np  j.  t  i  type,  '1  ch :  A  for  aipnanumer  1  c : 

'  M  '  for  n  u m  b  e  r  s 


d  9  f  3  U  It,  I 

s  t  r  : 

'  F  '  for  formatted  en 
the  default  string 

tries  ; 
t  r.  ?  t  w  1  J  ■  :i? 

j  1  s  p  i  a  . 

Cul  , r  c W  ,  I 

1  n  t ; 

in  the  incut  f i e i c 
the  position  for  t  n 

■3  ;  r  z  v  t  ; 

length.  1 

1  n  t : 

f  n  0  f  1  p  j  •  j  [  Dn.'frj  *0 

*■  "he  1  n  d  •.»  t 

- 

:  b  C  C  ! 

t  P  P  r  *"3  jy  n  '  a  **  0  1  j  T!  h  P  f 

i  t  r  *j.  8  t  0  r  u  o  c  e  r  c  ?  -3  * 

:  *  c  *  g  ^  3 1 

r  r  j  ►  *  n 

.  _■ 

f  i 

■1  b  0  0 1 

false  otherwise  ; 

;  v  a  r i a  b I e  returned 

t  r u  e  1 c  the 

F ;  ■  e 

was  pressed  for  t h 

s  e  ’i  zr  v  .• 

F  i  ' 

^  h  ^  n  1 

i  v a r is p i s  ret u -red 

r  r  9  ;  ►  r  p  5 

>1  3.  r  irgesgrj  -f  p.  P  t  *1 

0  -  n  <•  »-  ,  ‘ 

If'y  '**■>>>>'■.  f ,  Vi.Mi  v 


•cri  ption:  inis  is  me  m  a ;  n  proceaure  ;ar 
a  user.  The  numeric  Keypad,  the  Ins  key, 
keys  are  set  as  desired  by  t n s  programmer 


are  constantly  monitored  to  see  if  their  status  nas  oesn 
changed  by  the  user.  The  key  status  is  displayed  on  the 
25th  line  of  the  screen  in  inverse  vioeo.  A?  presently 
configured,  the  status  of  these  three  keys  can  be  changed 
at  any  time  by  the  user. 

The  routine  allows  the  user  to  use  the  keyboard  as  he 
would  normally  expect ,  The  arrow  keys  function  when  the 
MUM  lock  is  not  set.  the  Home  and  End  keys  respond  rp  send 
the  cusor  to  the  start  or  end  of  the  incut  line,  a n o  t n e 
Ins  key  state  will  allow  a  letter  to  be  inserted  in  she  i no 
string  if  it  is  set  to  ON. 

Returned  :  the  entry  of  the  user  is  return  to  the  calling 
procedure  in  the  global  variable  ANSWER. 


getting  input  t 

arc  the  CAP  loc 
and  these  he y s 


r o f» p  t  {  s  t  r  i  n  g  1  ,  £  s t r  ;  string  to  be  displayed  on  line  22  ) 

string2  )  {  str:  string  to  be  displayed  on  line  23  } 

Description:  clear  line  22  and  23  of  the  video  then  display 

string  1  and  strina2  there. 


Say_prompt(  p r o m p t _ n u m  )  £  i n t :  the  prompt  to  display  } 

Description:  specify  stringl  and  strmg2  to  be  dispalyed 
in  the  Prompt  proceoure.  This  is  used  primarily  by  the 
Input  handler, 


Get_default(  D  e  f  a  u 1 1  _  n  u  m  ,  £  i n  t :  the  default  for  an 
Default  )  {  str:  the  variable  return 

Description:  provide  the  defaults  to  display  in  the 
for  the  Inout  handier. 


Do_  validation!  V  a  1  1  d  _  n  u  m  ,  £  int:  the  number  of  me 

validation  routine 

Valid  )  £  boo:  variable  returned  f 

invalid  entry  ’ 

Description:  provide  a  routine  to  validate  any  e n t r 
were  made  from  the  i  n  o  u.  t  _  h  a  n  d  i  e  r  .  If  the  entry  l 
invalid  on  return  -from  this  procedure,  the  Input 
will  require  the  usee  tc  re-enter  the  data, 
mturned  :  me  boolean  variable  VALID  is  returned 


i  n  p  u  t  i 
ed  ] 
i  n  p  u  t  ■ 


a  1  se  if 


i  e  s  that 


n  s  n  o  1  e  r 


■ r -  -r.  -a  • 


n  u  m  5  1 


K 


Ej 


r 

m 


to 

V 


D  for  re-display 
nuffls  i  -  2 :  first  el  ament  r.umo sr  o* 
PC!  arrav  to  ass 
nuins  3-4:  last  element  of  tne 
P [  ]  array  to  use  ;• 

Escape  )  i  boo:  variable  returned  t r u e  if  \ F 1 >  w a s 
pressed  at  the  first  e n L r»  i 


Description:  this  Handler  provides  for  full  screen  editing  c 4 


user  inputs,  crevices  a  means  tor  changing  entries,  anc 


redisplays  a  record. 


Discussion  ;  the  programmer  must  provide  the  PC]  array, 
specifying  each  input  that  is  required.  The  form  for 
PC]  is 

PCI]  :=  ' 2 5 0 5 A 0 2 5 0 1 T 0 1 0 1 0 2 ' 


P  C  n  ]  where  n  is  limited  to  35  (35  entries  per  page) 
Each  element  of  PC]  is  defined  below: 


element  Mo. 
1-2 
3-4 


Description 
the  column  for  input 
the  row  for  input 
type  input-. A  for  ai ph an umer  i  c s 
N  for  n  u.  at  b  e  r  s 
F  for  for  amt  ted  entries 
4  for  dollar  entries 


6-8 

the 

length  of  the  input 

*  i  e  1  d  or 

tne  temp  late  number 

i-r  a  for  at  a  1 1  e  3 

en  try. 

9-10 

ar  r  a 

y  el ement  of  Fi 1 var  C 

]  array. 

F i 1 v  a  r  C  ]  is  the  glob 

a  1  v  a  r  1  a  0  i  e 

that  is  returnee  to 

the  calling 

routine, 

i  1 

set 

to  T  if  you  wish  the 

Cans  lock  set 

12-13 

the 

default  number  '  see 

Get  default  4 

14-15 

the 

prompt  number  (  see 

S  a  y  _  p  r  0  m  p  t  ; 

15-17 

the 

validation  No . (  see 

Do  validation 

The  programmer  must  also  provide  for  default 
and  validation.  The  placement  of  these  procedures 
in  the  utility. 


■"1  •-  ,*>  fn  n  r  : 


-  \ 

i  s  o  r  o  ■ 


91 


t  a m d  1  5 ;  the  -following  procedure  will  call  the  nandi  sr: 

procedure  Get_mputs; 
p  r o  c  p d  u  r  e  Get  variables; 
b  a  g  i  n 

PCI]  ; =  ' 2505N0080 1 FO i 020 1  ’ ; 

P  l  2 ]  :=  ' 2607A02502T020203 ' ; 
end ; 
begin 

Get  _ var 1 ab 1 es ; 
i npu t  _nand 1 er (  '  NO  1 02  '  ■  ; 
end ; 

This  example  will  provide  input  tor  two  variables.  On 
return  -from  the  handler,  FILVARC 1 3  will  contain  the  input 
■from  the  parameters  specified  in  PCI]  and  FILVARC23  will 
contain  the  input  from  P C 2 ] . 

Changes  5  r  oe  made  to  F l 1 v a  r  l i . . n ]  by  calling  she 
handier  in  tns  change  mode.  For  example,  if  there  were  7 
variables  in  the  Filvar  array,  the  call 

I nput _har d 1 er ( ' C0207 ' )  would  allow  changes  to  Fi i var C 2 ]  t nr u 
F i  1 v a r [ 7 ]  (  note  that  F 1 1 v a r [  1  j  was  skipped  by  this  call 

The  handler  m a  '  also  be  called  in  the  Display  mode, 

It  will  then  display  all  variables  e :< e c p t  the  numbers.  T k e 
numbers  may  be  displayed  formatted  using  the  FMT_F:EhL  function 

Returned  ;  global  variables  FilvarCl. .n]  (  max  n  -  35  ) 

variable  ESCAPE  will  return  true  if 

•. F 1  >  was  pressed  at  the  1st  f  l  e  1  a  of  1  n p u : . 


f,l  a  i  n  f,1  e  n  u 

Description:  provide  a  skeleton  for  a  main  menu.  The  procedure 
will  draw  a  box  around  the  menu  items  and  verify  the  choice 
of  the  user.  All  that  is  required  of  the  programmer,  is  ths 
menu  selections  and  a  list  of  Ok  choices  (  Ok  choices  is  a  1 i : 
of  all  the  choices  that  may  be  selected  bv  the  user  ) 


:  UNCTIONS 


F m t _ R e a  1  in u m o e r  . 

1  s  o  g  h  t , 


real:  number  to  format  } 
i n t :  the  total  length  o£  ths  digit: 

and  the  decimals  J 
int:  the  number  of  decimal  o laces 


V.Wr 

v.v 


description:  a  r u n c 1 1  a n  to  t q ‘‘ m e. t  a  real  n u. m d e r  w i  c h  a  com: 
and  t na  decimals  as  desired, 

Example:  Ffflt_Resl (  1010.253,7,2!  would  return  i. 010. 2a 


UpcaseStr (Si  i  str:  string  to  convert  to  upper  case  } 

Description:  to  convert  any  string  to  upper  case  character 
This  function  may  be  useful  when  using  the  Turbo  Toolbar 
converting  an  inde  string  to  all  uoper  case  letters. 


ConstStr (  Character,  {  the  cahracter  to  fill  the  string  with 

Number)  •[  the  number  of  characters  in  the  string 

Description:  fill  a  string  with  the  character  of  the  programme 
choice.  This  would  be  useful  for  drawing  a  line  of  characts 
the  screen. 

Example;  goto >'  Y  ’■  1  ,  4  ;  ;  wr i te  (Const Str ('=, 80) ' ; 

This  example  would  draw  a  line  of  equal  signs  at  line  4  0 
the  video. 


APPENDIX  B 


Appendix  B  is  a  listing  of  the  Pascal  source  code  which 
makes  up  the  major  modules  of  the  LCS-CAD  program.  In 
general,  driver  programs  are  included  first  followed  by 
their  supporting  subprograms.  Not  included  in  the  listings 
are  the  source  modules  for  the  Borland  International  Turbo 
Graphix  Toolbox  and  the  input  routines  described  in  the 
thesis  text  and  in  Appendix  A. 


Cross-Reference  4  Block  Listing  Date:  9/10/86 

{**  Program  Control_CAD  contains  the  calls  for  the  main  menu  proc  »*) 
{»»  and  also  the  files  for  the  single-parameter  root  locus  program**) 


program  Control _CAD; 

{*******************************************************************} 
{»«  The  following  include-files  contain  routines  and  procedures  **) 
{**  to  handle  graphics  calls  from  the  tain  procedures  of  this  **) 

(**  program.  They  are  a  part  of  Borland  International's  Turho  **) 

{**  Graphix  Toolbar,  a  commercially  available  product.  **} 

{n»i*fmsi»i»ii*i»imii»***»*m**»**************»*»»***t********) 

HI  typedef.sys) 

($1  graphix.sys) 

($1  kernel. sys) 

{fl  windows. sys) 

{$1  polygon. hgh) 
f$I  axis. hgh) 

{liimmumniimmiimimimMiHimmifmimmHHH) 

{**  These  include  files  are  utility  procedures  and  functions  to  *») 
!*»  facilitate  input  handling.  They  are  public  domain  procedures**) 

I*******************************************************************) 


<«  ut-hodoi.inc  ) 

{«  UT-H0D02. INC  ) 

{»!  UT-HOD03. INC  ) 

{***»m***M*tt*ttCt*tHi*«it*<i{ttm*ttH*iti*t<tttttt**tt**tt<lt) 

{»*  Grapllenu  contains  procedures  to  open  a  window  on  each  graphic  **) 


(**  screen  with  a  menu  of  use-  options.  The  selections  allow  ♦») 
{*♦  printino  a  hardcopy  of  the  graph  on  a  dot-matrix  printer,  *») 
{**  dumping  the  data  points  to  the  printer,  or  constructing  and  »*) 
(**  placing  a  title  block  on  the  graph.  **) 


{*******************************************************************) 

<TI  Grapftenu.inc) 


I***************************************** **************** **********) 

{♦*  The  indude-file  Roots. Inc  is  a  set  of  procedures  to  find  »*) 
{*»  the  roots  of  a  given  polynomial  in  coefficient  form.  The  **) 
{**  algorithm  use  is  a  modified  version  of  the  Bairstow  method.  *») 

{t<tltif*tt***til«<IHI<lt<*llllltitlltilt<ilttt«itl*<tt*tt<liit*ltl) 

<tl  Roots. INC  ) 


{ e  ************* ******  ******§#********#******************■*********  ***» } 

{**  The  Include-file  SHOffiOOT.inc  will  display  the  input  or  *») 

(»*  calculated  roots  of  the  6-equivalent  block  diagram.  Both  »*) 


File:  CfiD.FAS 


Cross-Reference  4  Block  Listing 


Date:  9/10/86 


I 

I 


I 


57  {**  poles  and  zeros  will  be  displayed.  «) 

53  {HHHmmHHHiHHHHHHHHHHHfHttHHHtHftHItlHH} 

59 

60  (FI  ShoNRoot.  inc) 

61 
62 

63 

64  {HmtHHIHHIHHIHHHiHIKIimimimKXHHHHIHHHH) 

65  {*»  The  indude-file  ROOTLOC. INC  is  a  procedure  to  draw  the  »*) 

66  {**  plot  of  a  single-parameter  root  locus  through  a  user-suppled  **) 

67  {»  range  of  gain  (K) .  **} 

69 

70  (I!  RootLoc.inc) 

71 

72 

73 

74  Procedure  HainHenu; 

75  var 

76  I, Tab  :  integer; 

77  Okchoices  :  set  of  char; 

78  Helpfile  :  file; 

79 

BO  procedure  ProgramExit;  (displays  warning  about  program  about  tD  end) 

81  8 - begin 

82  1  Clrscr;  Center < 'This  Program  is  about  to  end',1, 11, BO); 

83  !  highvideo;  Center! 'Verify  Ok  IY/N) ',1,13,80);  lowYideo; 

84  1  B — - repeat 

85  1  1  Option;  if  not  (Ch  in  [T,'N'D  then  beep (350, 150); 

B6  !  E - until  Ch  in  IT, T); 

87  E - end; 

88 


89 

90 

91 

92  8- 

93 

94 

95 

96  E 
V 

98 

99  B 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 


procedure  HenuItem(pick:char;description:strBO;color: integer); 
(allows  easyselection  of  menu  colors) 

—begin 

textcolor(color); 

write(":Tab,'<');  texted  or  (White);  write(pick); 
textcolor (color) ;  writelnO  '(description); 

—end; 


-begin  (HainHenu) 

ClrScr;  TextColor (White) ; 

SotoXY (1,24) ;  Write! 'Revision  date:  9/04/86'); 

Center  I'm  MAIN  MENU  h*  ’,1,4,80):  (display  main  menu) 
for  I:=  1  to  4  do  writeinC); 

Tab:=  23; 

Henulten!' I',' Input/Change  Transfer  Function (s) ' ,green) ; 
writeln; 

Henulten! 'L' , 'Location  of  Char.  Eg.  Roots', green); 
HenultemCF', 'Frequency  Analysis' ,green); 
llenul ten CR', 'Root  Locus  Analysis', green); 
writeln; 

Henulten! 'Two  Parameter  Root  Locus', green); 


File:  CA0.FA5 


Crass -Reference  i  Block  Listing 


Date:  ?/ 10/86 


Page  3 


114 

115 

116 

117 

118 
11? 
120 
121 
122 

123 

124 

125 

126 

127 

128 
12? 

130 

131 

132 

133 

134 

135 

136 

137 

138 
13? 

140 

141 

142 

143 

144 

145 

146 

147 

148 
14? 

150 

151 

152 

153 

154 

155 

156 

157 
15B 
15? 
160 
161 
162 

163 

164 

165 

166 

167 

168 


E- 


Henul tea f 'T' , 'Tice  Response ' , green  1 ; 

MenuItefflf'U', 'Utilities', green); 
witeln; 

Henulteflil 'H' , 'Help' ,blue) ; 

Menulteaf '6' ,  Exit  Proqraii',light*agenta); 

HighVideo; 

TextColor (Yellow); 

Box  (20,2,65,23,6)  ;witeln("); 

Set_Cap_Num< 'C',’  '!;Say_Cap_Nim; 

TextColor (White) ;  Center! 'Press  Tour  Selection' ,21,22,38);  LonVideo; 

(sets  legal  choices  depending  on  whether  user  has  entered 
block  information  or  not) 

if  notINBlocks  in  [1..?])  then  DKchoices  tT,'U','H','Q',‘P'] 

else  DKchuices  :=  [T,'L','F','R','U','T','H','Q','P']; 

-repeat 

Option;  if  not  ICh  in  OKchoices)  then 

- begin 

Beep (350, 150);  TextColorltHiite); 
if  NBlocks  <=  0  then 
- begin 

*sg (’HARKING  :  First  INPUT  the  block  descriptions1 ',1,25); 


-end; 


-end; 


-until  Ch  in  OKchoices; 


-case  Ch  of 


B - T  :  Begin 

1  Assign  (InputFile, 'Input,  chn ') ; 

I  Chain(InputFile); 

£ - en(|. 


'R'  :  Root  Locus (B_eg)  ; 

-T  :  Begin 

Assi on (TwoParanFi 1 e, ' TwoParam. chn ' ) ; 
Chain (TwoParamFi le) ; 

- end; 


I'  :  ShonRoots(6_eq)  ; 

- 'F '  :  Begin 

Assign (FreqFile,  Freq. chn'); 
Chain(FreqFile); 

- end; 


T  :  Begin 

Assign (TimeFile, 'TineResp.chn'); 
Chain(TineFile); 

- end; 


'U'  :  Begin 

Assign (Uti 1 f i ie,  'Uti 1  Menu. chn ' ) ; 
Chain(Utilfile); 

- end; 


B - 'H'  :  Begin 

!  Resign (Helpf ile,  HelpMenu.chn ')  ; 

I  Chain(Helpfile); 

E - end; 


- 'O'  :  begin 

ProgramExit;  if  Ch='Y'  then  Exit  :=  true; 
- end; 


16?  E— 
170 


— end; 
—end; 
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172 

173 

174 

175 

176 

177 

178 
177 
180 
181 
182 

183 

184 

185 

186 
187 


E- 
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Fage  4 


(»  Program  Starts  Execution  ?) 

{HfHHHHmHJHHHfmmHHtmHHHmtHmHm} 


-begin 

Ini tGraphi c; LeaveGraphi c; Cl rScr ;  (initialize  screen) 

Fill  char (s, 100, #205) ;  S:=  copy 1S,1 ,80) ;  (use  special  character  to  draw  line) 
Exit:=false;  (initialize  boolean) 


— repeat 

MainHenu;  (repeatedly  call  main  menu  until  user  wants  to  quit) 

— until  Exit  =  true; 

Set_Cap_Num( '  ’);Say_Cap_Nun;  (set  caps,  insert,  and  nu»  lock  off) 

NBlocks  :=  0;  (reset  problem) 

-end. 


I 


t 

k 
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Program  Input Iinput,output) ; 


($1  TYFEDEF.SYS)  (program  type  4  variable  definitions  -  same  as  CAD.PAS) 


M  DIRECTRY. INC  1 
<*1  UT-flODOl.lND  ) 
(FI  UT-M0D02. INC  ) 
Cil  UT-M0D03. INC  ) 
($1  EXPAND. INC  ) 
{$1  ROOTS.  INC  1 
(FI  HAKEGEQ.  INC) 
(FI  INFUTHLF. INC) 


(displays  directory  of  available  blocks) 
(input  utility  routines) 


(expands  factors  into  polynomials) 

(finds  factors  (roots)  of  polynomials) 

(combines  loop  blocks  into  single  equivalent  block) 
(help  screen  driver) 


{HHHHHHHHtHHIHHHHHHH  vHtHttHHfHHHHfttHHHHHHHH} 

{»»  Block  input  is  called  from  input,  add,  and  change  procedures  to  input  «) 

(**  a  single  block.  **) 

Procedure  81ock_lnput(var  BlDck_Description:Blocks;Blocklndex:integer;readerror:boolean) 


i,j,code  : 

temp,temp2  : 

VertPos, 
HorizPos, 
PosCounter  i 

Exponent  : 

Specification: 
Strg  : 

Filename  : 

ReadFile  : 

HZeros_old, 
NPoIes_old  : 

test  : 


integer; 

char; 


integer; 

stringCZj, 

string(51; 

string(2J; 

str?0; 


(i,j:  loop  counters;  code:  error  code  from  Var  proc) 
(temporary  holding  var  for  input) 


(screen  prompt  position.ng  variables) 
(exponent  of  S  for  coeff  input  form  display) 
(lnput_Handler  calling  string) 

(file  name  for  storing  block  data) 


'ile  of  Blocks;  (file  for  reading  in  block  filenames) 
interne,-; 

real;  (temporary  variable  to  hold  results  of  'val‘  ' 
(until  conversion  is  validated) 


{KttmmHmmHttiHHtHtiimmmmHHHmHmmtttHHtH) 

(»»  Begin  processing  Factored  form  Input-Internal  routine  »*) 


Procedure  lnput_Factored  ! Zer D5_or _Pol es: Str 5; NFac tor s: integer ; var  RealPart, 
IragPart:  PolyArray); 
var 

i,j  :  integer; 

test  :  real;  (holds  ’val"  results  until  conversion  is  validated) 


P(ll)  :=  ‘0905N0101 1-000101 ’;  (set  up  input  handler  control  strings) 


File:  IfPUT.PAS 
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E - 


=  '2505N01 01 2-000101' i 
=  '0907M01013-000101 
-  '2507N010M-000101 
*  '0909(101015-000101'; 
=  '2509N01016-000101'; 
=  '0911N01017-000101 ‘ ; 
=  '2511(101018-000101'; 
=  '0913N01019-000101'; 
=  '2513N01020-000101 ' ; 
:=  '0915N01021-000101 ' ; 
=  '2515N01 022-00010* '• 
=  '0917N01023-00010i  , 
=  '25171101024-000101'; 
=  '  0919(101025-000101 '; 
=  '2519N0102&-000101 '; 
=  '0921001027-000101'; 
=  '  2521(101028-000101 '; 
=  ‘0923N01029-000101 ‘ ; 
=  '2523(101030-000101'; 


{for  factored  fori  input  —  odd  strings) 
(for  real  parts,  even  strings  for  inagl 


ClrScr;  TextColor (White);  (mite  screen  titles) 

Center !'H»Block  Transfer  Function  Input***' ,1,1,80) ; 

HighVideo; 

writeln;writeln(s); TextColor (green); 
if  Zeros_or_Poles  *  'ZEROS'  then 

writelni 'NUHERATDR  Transfer  Function  Input  —  FACTORED  Fori’) 
else 

writeln ('DENOMINATOR  Transfer  Function  Input  —  FACTORED  Fora'); 


HighVideo; 

for  j:=l  to  NFactors  do  (type  prompt  strings) 
- begin 

writelnC  s  =  +j '); 

writeln; 

- end; 


str(INFactors»2+10):2,strg);  {select  proper  input  handler) 

(control  strings  based  on  NFactors) 


if  Change  then  specification  :=  concat CC11 ' ,strg)  (builds  string  to  call) 
else  specification  ',=  concatT ‘Nil ' ,strg) ;  (input  handler) 


lnput_handler (specification,  escape);  (cal!  the  input  handler) 


for  j:=  1  to  NFactors  do  (compute  the  zero  values  from) 

- begin  (input  handler  string  Filvar) 

val (f i Ivar [2* j+9  1, test, code); 

if  code  =  0  then  Real  Part [ j  3 : =test ;  (val  conversion  successful  if  code) 
val (filvar(2*j+101, test, code);  (=0,  error  otherwise) 
if  code  0  then  IfiagPart(jl:=test; 


- end;  (procedure  Input_factored) 
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1 16  {HmmtmmHmmmHi  MiinKHwiKiHimimmimiimiw) 

117  {h  Begin  processing  Coefficient  (ore  Input-Internal  procedure  ») 

119 

120  Procedure  Input _Doeff (Zeros_or_Poles:Str5;  NCoeff: integer; 

121  var  Coeff:  Polyarray); 

122 

123  var 

124  i , j ,  (counters) 

125  NCoeff _old  :  integer;  (holds  old  poly  order  if  changing  order) 

126  test  :  real;  (holds  "val"  results  until  validated) 

12? 

128  B - begin 

129  I 

130  1  P(21)  :=  '0406X01021-000101';  (Input-Handler  descriptors  for  coeff) 

131  !  P(22)  :=  '1806X01022-000101';  (forn  input) 

132  1  PI231  :=  '3206X01023-000101'; 

133  !  P(243  :=  '4606N01024-000101'; 

134  !  .  F'(251  :=  '040BN01025-00010I'; 

135  !  P(261  :=  ’ 1B08N01026-000101 ' j 

136  !  P1273  :=  '320BH01027-00010!'; 

137  1  P(28)  :=  '4608N01028-000101'; 

138  I  P(29)  :=  '0410N01029-000101'; 

139  1  PC30)  :=  1B10N01030-00010I '; 

140  I 

141  I  NCoeff _old:=  NCoeff; 

142  I 

143  I  ClrScr;  TextCoIor (White) ;  (print  screen  titles) 

144  1  Center CwBlock  Transfer  Function  Input***' ,1 ,2,80) ; 

145  !  writeln;  wite(s); 

146  !  Tex  tCol or ( Breen ) ; 

147  1  if  Zeros_or_Poles  =  'ZEROS'  then 

148  1  HritelnCNUf£RPT0R  Transfer  Function  Input  —  COEFFICIENT  Form') 

149  1  else 

150  1  witelnCDENOfllNATffl  Transfer  Function  Input  —  COEFFICIENT  For*'); 

151  1  HighVideo; 

152  1 

153  1  (Adjusts  the  coefficients  if  CHAN61NG  nuaber-zeros  in  block) 

154  I  if  NCoeff  >  NCoeff.old  then 

155  !  B - begin 

156  1  I  for  j:=l  to  NCoef f_ald  -  NCoeff  do 

157  !  !  for  i  :=NCoeff  _o!d  +  1  dcwito  1  dD 

158  !  I  FilvarCi+13  :=  Filvar(i);  (shift  the  coeff  down  to  ) 

159  I  !  (location  proper  exponent) 

160  1  E - end; 

161  ! 

162  1  if  NCoeff  <  NCoef f_old  then 

163  !  B - hegin 

164  1  !  for  j:=  1  to  NCoeff_old  -  NCoeff  do 

165  1  !  for  i:=  1  to  fiCoef f  old  +  1  do  (shifts  the  coeff  up  to  proper  expon) 

166  !  !  Filvar(i)  :=  FilvarCi+ll; 

167  1  E - -end; 

168  1 

169  ! 

170  !  VertPos:=4;  (positions  prompts  on  screen) 


101 


JfJ  f( 


|M|K 


Files  INPUT. PAS 


Cross-Reference  t  Block  Listing 


Date:  9/10/86 


Tor  i :=NCoef f +1  downto  1  do 

- begin 

j:=NCoef f+1  -  i; 

PosCounter  :=  (j  raod  4)  +  1;  HorizPos  :=  PosCounter  »  14; 
IT  PosCounter  =  1  then  VertPos  :=  VertPos  +  2; 


if  i<>  1  then  {proapts  f 

- begin 

flsgCs  +’  ,HorizPos,  VertPos); 
str(i-l:2, Exponent) ; 
fflsg(Exponent,HorizPD5+l ,VertPos-l) ; 

- end; 

- end; 


{proapts  for  coeff  input) 


str((20+NCoeff+l):2,strg); 


(sets  up  and  calls  input  handler) 


if  Change  then  specification  :=  concat (  C21 ‘ ,strg) 
else  specification  :=  concat ( 'M21 ‘ , strg); 


Input _handler (specification, esc  ape); 


for  j:=  NCoeff+1  downto  1  do 
- begin 

val (Fil varlNCoef f +22-j] , test, code); 
if  cade  =  0  then  CoeffIj]:=test; 
- end; 


197  E — 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208  B — 

209  1 


{mmmtBHmtiHHmtHfmmimmmmmHmimtHmmHHH) 
{*f  Begin  the  Block  Input  Routine  .  This  allows  input  of  a  generic  block  *») 
(*»  from  either  input  or  change  routines.  »») 


- begin  (procedure  Blockjnput) 

with  Block.DEscription  do  (Block_Description  is  Blocks-type  variable) 

- begin  (passed  to  this  routine) 

Clrscr; 


if  Change  then  teup2  :=  T  (if  Change  option  always  fro#  keyboard) 
else 
— uegin 

gotoxy ( 1 ,7) ;  textcolor (Breen) ;wri te( ’Block  No.  ',Blocklndex); 
textcolor (yellow) ; 

nsgCHill  you  input  this  block  fron  the  Keyboard  IK.)  or  Diskfile  (D)  ?' , 1 , 10) ; 
— repeat 

Input  1  ’ft' , 'K' ,73, 10,2,true,Fl,F10> ;  (validate  for  T  or  T) 

temp2: =copy (answer  ,1,1); 

if  not (temp2  in  CK’/D'l)  then  beep (350, 150); 

— until  tetip2  in  ['K','D']; 

—end; 


if  tenp2  =  'D'  then  (  if  input  fro#  diskfile,  then  prompt  for  drive) 
- begin  (  and  display  directory  of  blocks  available) 


^  ^  j'  ^  ^*4  ,*  t 


«  *  V  '  »  '  •» 

#  *  >  *  •* 
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N 


I 


r 


I 


■  - 


i 


228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 
:’4S 

246 

247 

248 

249 

250 

251 

252 
253. 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
2B2 
283 
2B4 


Clrscr;  HighVideo; 

Hsg(’H»Current  Dat*  Drive  is  .  Press  (esc)  to  change  it !***' ,10,11): 
-repeat 

input! 'ft  ,CDpyCdrive, 1,1) ,36, ll,2,true,Fl1F10); 
ch:=  copy (answer, 1,1); 

if  notfch  in  then  beep (350, 150); 


-until  ch  in 


Drive  :=  concatlch,’:’); 


highvideo; 

Directory  (drive,  extension,  {ilenaste,readerror);  {call  Directory  display) 
if  not(readerror)  then 
- begin 

flssignIReadfile, filename);  (open  the  selected  file  passed  back) 
Reset (Readfile);  {from  Directory  in  variable*  Filename) 

Readtreadf i J  e,block_description) ; 


clrscr; 


nsgCls  the  block  read  fro*  disk  in  the  Forward  (F)  or  FeedBack  IB)  path? ’,1,10); 
-repeat 

Input  IT, 'F', 75, 10,1,  true, FI, F10);  . 

ch:-  copy (answer ,1,1); 

if  not (ch  in  [’F','B'l!  then  beep (350, 150); 


-until  ch  in  C’F* , 'B'J; 


if  ch  =  ’B‘  then  FeedBack  :=  true 
else  FeedBack  :=  false; 


-end 

else 

—begin 


delay (150?) ;  {wait  until  directory  error  is  displayed) 
window!! , 1,80,25) ;  {expand  out  of  directory  window) 
clrscr; 

-end; 


else 


-begin 


(begin  Keyboard  input) 


ClrScr;  TextCalorlHhite); 

Center! ’Block  input  Segment ’,1,2, 80);  HighVideo; 
writeln;  writeln(s);  writeln;  TextColor (Green); 
writeln ( ‘Block  ’,BlockIndex,’:  ’); 

HighVideo; 


Pll) 

P[2) 

P13) 

PC4) 

Pt5) 


=  ' 6007A00201T0001 10 ’ ;  (Fbk/Fwd  path  block) 

=  '6011 N03202-000 102’;  (NZeros  prompt) 

=  ' 60 1 3N00203-000 102';  {NPoles  prompt) 

=  *6015NOIi904-0O)l0t {Block  gain  prompt) 

=  '6O1BAOO205TOO0I 1 1 (Fact,  or  Coeff.  form  input) 


E- 


itsgCls  block  in  Forward  IF)  or  Feedback  IB)  Path?’, 1,7); 
r.sgfWbat  is  the  order  of  the  numerator?’ ,10,11); 
nsgCHhat  is  the  order  of  the  Denominator? ’,10,13);  {I  poles) 
nsgCHhat  is  the  block  gain  constant?’, 10, 15); 
if  not (Change)  then 
- begin 
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■ft 


Br 


ft 

vs 


285 

286 

287 

288 
28? 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 
31? 

320 

321 

322 

323 

324 

325 

326 

327 

328 
32? 

330 

331 

332 

333 

334 

335 

336 

337 
33B 

339 

340 

341 


E - 


usgl 'Will  you  enter  the  block  in  Factored  IF)' ,10, 17); 
msgf'or  Coefficient  (C)  for*?', 28,18); 

-end; 


if  Change  then  Input  Handler ('00104', escape) 
else  lnput_Handlerf'N0105', escape); 


if  copy iFi lvart013,l ,1)  3  'B'  then  Feedback:3  true 
else  FeedBack:3  false; 


vallFilvartOZ], NZeros, code);  (convert  (keros  to  number) 
val(Filvar[03]|NPoles,code))  (convert  NPoles  to  number) 
val(Filvar(041,test  ,code);  (convert  gain  to  number/validate) 
if  code  =  0  then  K:=test; 


If  copy(Filvar(0j],l,l)  3  ‘F‘  then  Factored:3  true 
else  Factored:3  false; 


if  Factored  then  (set  up  to  call  Input _Factored  routine) 
— begin 


if  Change  then  (if  Changinq  an  old  entry,  then  put  all  old  values) 
(into  associated  Filva; []  to  be  displayed) 
for  j:=l  to  NZeros  do 
- begin 

str (Real  Part Zerol j 1 : 10: 2, < i 1 var(2* j+93 ) ; 
str ( ImagPart  Zerot jl: 10:2,f ilvar(2*j+101) ; 


-end; 


if  NZeros  3  0  then  NumCoeff [1):=1.0  (if  order  zero,  then  assign  ) 
else  (unity  coefficient  and  go  on) 

- begin  (otherwise  prompt  for  input) 

Input_Factored('ZEJ(US'|NZero5,RealPartZero,ImagPartZero); 


{expand  factors  to  polynomial  and  store  in  NumCoeff  array) 
Expand  j>o!y(RealPartZero,ImagPartZero, 

NumCoeff , NZeros); 


-end; 


if  Change  then  (repeat  above  process  for  Polesldenom)  input) 

for  j:3l  to  (foies  do 
- begin 

str(RealPartPole[j]:i0:2,filvar(2»j+?]>; 

5tr!ImagPartPole[j):10:2,filvar(2tj+10]); 


-end; 


if  NPoles  3  0  then  DertCosf f[U:=1.0 
else 

- Begin 
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342 

143 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 
35B 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 
;,3 
379 
3B0 

381 

382 

383 

384 

385 

386 

387 


389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


r^v*  r  »  'w»  ^  ^ 


Input_Factored('F'OLES',NPoie5,fealPartPole,l»agPartPQle); 
Expand  _Fol y (Real PartPol e ,  ImagPar tPol e, 

OenCoeff, (foies); 

-end; 


LeadNunCoeff:-  1.0;  LeadDenCoef f :=  1.0;  (expanding  factors  Hill  always) 
(create  unity  leading  coefficients.  These  variables  are) 
(used  in  Coeffjnput  to  assist  in  normali zing/denormalizing) 
(coefficients  for  display/change  and  computation) 

-end 


else 


(i«HH»MBeqin  Coefficient  form  inputHHHHHHmma) 


-begin 


if  Change  then  (if  changing  entries,  restore  normal ized  coeffs  to) 

(orig.  forit  -  doesn't  confuse  user.  Then  restore  into) 
(proper  FilVard  for  display) 
for  j:=NZeros+l  downto  1  do 
- begin 

NumCoef f C j]  :=  NuaCoeff t j]  *  LeadNunCoeff; 
str (NumCoef f C jl:  10:2,f i 1 var CNZeros+22-jl) ; 

- end; 


Input  Coef f ('ZEROS', NZeros,NumCoeff);  (call  Input _Coeff  routine) 


LeadNunCoeff :=  NumCoef fENZeros.  +  11;  (normalize  polynomial) 
for  j:=  1  to  NZeros  +  1  do 

NumCoef ft j]  :=  NumCoef f [ j ]  /  LeadNunCoeff; 

K  :=  K  »  LeadNunCoeff;  (mult  K  by  leading  numerator  coeff  to  keep) 
(polynomial 1 s  numeric  integrity) 


RootFinder (NZer os, NumCoef f ,ReaiPartZero,!»agF'artZero, 0.0, 0.0); 

(factor  for  real  and  inag  roots) 


if  Change  then  (repeat  above  process  for  denominator) 
for  j:=NFolesH  downto  1  do 
- begin 

DenCoeffCjl  :=  DenCoeff(j)  *  LeadDenCoeff; 
str (DenCoef  f  E  j ) :  10: 2, f i 1 var (NPol es+22- j ] ) ; 


-end; 


lnput_Coef f ( ’POLES' , NPol  es, DenCoef f) ; 


LeadDenCoef f:=  DenCoef ftNF'oles  +  1);  (normalize  polynomial) 
for  j :=  l  to  NFoles  ♦  1  do 

DenCoef ft jl  :=  DenCoeff(j)  /  LeadDenCoeff; 

K  :=  K  /  LeadDenCoeff;  (divide  K  by  lead  Denos.  coeff  to  keep) 
(polynomial's  numeric  integrity) 


RootFinder (NFoles, DenCoef f ,RedlPartPole,I*agPartPole, 0.0, 0.0); 
-end; (else) 


-end;  (if) 


— end;  .with) 
-end;  (procedure) 
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39? 

400 

401 

402 

403 

404 

405 

406 

407 
400 

409 

410 

411 

412 

413 

414 

415 

416  B — 

417  I 


{HfHmHHHmmtmttmmmmmftHHmHtHmmmm} 
{h  This  procedure  prompts  for  the  number  of  blocks  in  the  loop  »»} 
{»*  and  iterates  through  calling  the  block  input  routine  as  »») 
{»»  required  to  allow  input  c<  all  blocks  for  analysis.  *») 

{IlftiHIHHIlitHMOHtHHIlHIIIlIHIIHIIIHIIlHfHHtHHHH) 


Procedure  Trans_Fiuiction_lnput; 


i,j,codp  :  integer; 
InputErr  :  boolean; 
LoopFeedBack  :  boolean; 


418  ! 

41?  1 
426  ! 

42!  ; 

422  : 

423  1 

424  1 

425  ! 

426  ! 

427  ! 

428  I 

429  ! 

430  ! 

431  !  B- 

432  !  ! 

433  I  1 

434  :  1 

435  !  1 

436  1  ! 

437  1  E- 

438  1 

43?  1  B- 

440  1  1 

441  !  1 

442  !  ! 

443  1  ! 

444  1  ! 

445  1  ! 

446  1  ! 

447  1  ! 

448  !  1 

449  !  1 

450  1  E- 

451  ! 

452  ! 

453  1 

454  E— r 


— begin 

Chanqe:=  false; 

Clrscrj 

TextColorlHhitrh 

Center ('t«Trusfer  Function  Input  Routine***' ,  1 ,2,80) ; 

HighVideo; 

Fillchar Is, 100,4205);  S:=  copy(S,i, B0): (construct  horizontal  line  on  screen) 
writeln;  witelnls);  witeln; 


(begin  user  prompts) 

nsgl'HoN  many  blocks  in  this  loop?', 10, 6); 

Input!  N' , '1 ' ,43,6,2, true,Fl,F10) ; 
val  (flnswer^Blocks^ode); 

LoopFeedBack  :=  false; 
for  i:=  1  to  NBlocks  do 

- begin 

- repeat 

Block_Innut (BlockCi  1  ,i , InputErr);  (call  Blockinput  until  no  error) 

- until  rjtlinputErr);  (and  all  loop  blocks  have  been  nade) 

if  Blockli). Feedback  then  LoopFeedBack  :=  true; 

Clrscr; 

- end; 

if  LoopFeedback  then 
- begin 

nsgl'Is  the  Loop  FeedBack  Negative  (N)  or  Positive  IP)?', 1,10); 


— repeat  (validate  input  answer) 

Input CA' , ' ' ,55, 10, 2, true, FI ,F10) ; 
ch: =copy (answer  ,1,1); 

if  not  (ch  in  C'N'.'P'))  then  beep (350, 150); 
— until  ch  in  t'N','F"]; 


if  ch  = 'N'  then  NegFeedback  :=  true 
else  NegFeedback  :=  false; 

—end; 


Firstjun  :=  false; 

Hake_Geq;  (once  loop  finished,  compute  equivalent  single  block) 


2. 
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456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 
50? 

510 

511 

512 


{HMHHItHMHMMHHHHHHtmHMHHHIHIHHHHHtHHH} 

{**  The  following  procedure  allows  the  user  to  change  the  contents*} 
{»*  of  a  block  in  the  existing  loop  structure.  It  will  not  only  *) 
{**  allow  changes  to  existing  coefficients  or  factors  of  the  user  *) 
{**  polynomial,  but  changes  to  the  order  of  the  polynomial  as  well*) 

{HtlHHiHHHHtHHHtiHHHIlitHHHtllHHHHHWHHHHil 


Procedure  Change  Jlock; 


var 


i,j,code,Block_num 

inputerr 


:  integer; 
:  boolean; 


-begin 


if  NBlocks  >  0  then  (if  there  are  no  blocks  to  change  don't) 

—begin 

Change:1  true;  (sets  Change  boolean  to  true) 

Clrscr; 

TextColor (White); 

Center t’»**Transfer  Function  Change  Routine***'  ,1,2,80); 

HighVideo; 

writeln;  writelnls);  writeln; 

(prompts  for  block  to  change) 
nsgl'Which  Block  do  you  wish  to  change?', 10, 6); 

—repeat 

Input (  N’ , ' 1 " ,43,6,2, true,Fl ,F10) ;  (inputs  and  validates  block  within  range) 

val  (Answer, Block_num,Code); 

if  not (Block_nura  in  (1. .NBlocks))  then  beep (350, 150); 

■—until  Block  jiur  in  (1. .NBlocks); 


(Initialize  the  lnput_handler  holding  variables  to  those  of  the  block  to) 
(be  changed) 


with  BlocklBlocknum)  do 
- begin 


(restore  all  Filvarl)  values  prior  to  display) 


if  Feedback  then  Filvar(01):='B' 
else  Filvart0ll:='F'; 


str (NZeros: 1 ,Fi lvarC023); 
str (IPoles: 1 ,Fi 1 vartOJI); 

K  :=  K  MLeadDenCoeff/LeadNumCoeff);  (de-normal i ze  poly  for  display) 
str IK: 10:2,  Filvar(04)); 


if  Factored  then  Filvar(05):=  'F' 
else  Filvar(051:=  'C; 


-end; 


-repeat 


Block_Input(Block(Block_Num),Block_Nuji, inputerr);  (Call  Block_Input  to  change) 
-until  not(inputerr); 

if  Block(Block  nur). Feedback  then 
- begin 
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513  ! 

1 

» 

fflsgt 'Is  the  Loop  FeedBack  Negative  IN)  or  Positive  (P)?' , 1,10) ; 

514  ! 

I 

1 

515  ! 

!  B - 

- repeat  (validate  input  answer) 

516  ! 

1  1 

1  1 

if  NegFeedBack  then  ch:=  'N'; 

517  ! 

1  1 

1  I 

Input! 'A', ch, 55, 10, 2, true, FI, FI0); 

518  ; 

1  1 

1  1 

ch:=copy{ansMer, 1 ,1) ; 

519  ! 

1  1 

1  1 

if  not  (ch  in  [T,?*])  then  beep (350,150); 

520  ! 

;  E - 

- until  ch  in  (  N  ,  P  1; 

521  1 

1 

» 

522  ! 

1 

1 

if  ch  =T  then  NegFeedback  :-  true 

523  ! 

1 

1 

else  NegFeedback  :-  false; 

524  : 

E - 

end; 

525  ! 

526  1 

Nake_Geq;  (recalculate  equivalent  block  after  changes  are  itade) 

527  ! 

end; 

528  E— 

end; 

529 

530 

531 

532 

533 

534 

535 

{»»  The  fallowing  procedure  adds  a  block  to  the  existing  loop  by  ») 

536 

(*»  incrementing  the  block  counter,  prompting  for  all  required  •*) 

537 

(h  information  about  the  block,  and  then  forming  the  new  Geq.  »*) 

538 

(mmmimimiHiiiimmiiiHiiiiimHmmmiimiiiiHHi) 

53? 

540 

Procedure  Addjlock; 

541 

var 

542 

Inputerr  :  boolean; 

543 

544  n— 

Begin 

545  ! 

Change  :*  false; 

546  ! 

NBlocks  :=  NBlocks  +  1;  (pick  next  block) 

547  ! 

B - 

- repeat 

548  ! 

j 

Block JnputiBlocktNBlocksl, NBlocks, Inputerr); (input  next  block) 

54?  ! 

|7 - 

- until  not(inputerr); 

550  ! 

if  BlocktNBlocksl. Feedback  then 

551  ! 

B - 

—  —begin 

552  ! 

nsg(  Is  the  Loop  FeedBack  Negative  (N)  or  Positive  (P)?‘ ,1,10); 

553  ! 

554  ! 

!  B - 

— repeat  (validate  input  answer) 

555  ! 

1  1 

1  l 

Input! 'A' , ' ' ,55, 10, 2, true, FI, F10); 

556  ! 

1  1 
l  1 

ch:=copy(answer ,1,1); 

557  ! 

1  1 

1  1 

if  not  (ch  in  ['N','P'l)  then  beep(350,150); 

558  : 

!  E - 

-  —  —until  ch  in  (  N  ,  P’l; 

55?  1 

560  ! 

if  ch  ='N'  then  NegFeedback  :-  true 

561  ! 

else  NegFeedback  :=  false; 

562  ! 

E - 

-  -end; 

563  ! 

564  ! 

Nake_Geq;  (compute  new  equivalent  block) 

565  E- 

—  — end; 

566 

567 

568 

569 

{HHHtHmmfHHUmtHmHIHtHIfttiHHHiimttHttmiHI) 
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570  (**  The  following  procedure  deletes  a  block  from  the  current  loop  *♦) 

571  {**  and  shuffles  the  block  indices  to  close  the  ’gap"  left  by  the  **) 

572  {«  removed  block.  Then  the  n?w  Beg  is  found.  ♦*) 

573  {HfHHHHfHHHiHHMHHHHHHHMHHHHHHHHHHHHHf} 

574 

575  Procedure  Delete  Block; 

576  var 

577  code,BlockNumber,i  :integer: 

57B 

579  B - Begin 

580  1  if  NBlocks  <>  0  then 

581  !  B - begin 

582  !  1  drscr;  Highvideo;  {prompt  for  block  to  delete) 

503  !  1  msgl  Which  Block  do  you  wish  to  delete  from  this  loop?  [*  0  “  to  cancel! ',1,10); 

584  1  1  inputl'N',  ",75,10,1, true, FI, F10); 

585  1  !  val (answer, BlockNumber, code); 

586  1  1  if  BlockNumber  in  [1. .NBlocks)  then  (if  legal  block) 

587  !  !  B - begin 

588  1  !  !  NBlocks:=N8locks-l;  (remove  block  and  adjust  block  indices  accordingly) 

589  !  !  I  far  i:=  BlockNumber  to  NBLockS  do  Block[i):=Block[i+l); 

590  1  1  1  Hake_Geq;  (compute  new  equivalent  block  after  deletion) 

591  i  ]  £ - end; 

592  !  E - end; 

593  E - : - end; 

594 

595 

596 

597  lIHimiHHHmtHWHtHHWHHIftHHHHHIIIIHHmmm) 

59B  {h  The  following  procedure  allows  the  user  to  save  the  current  »») 

599  {**  loop  to  a  disk  file.  **) 

601 

602  Procedure  Save.Block; 

603 

604  var 

605  Blockfile  :  file  of  Blocks; 

606  filename  :  str20; 

607  Fnr  :  integer; 

608 

609  B - begin 

610  1  drscr;  HighVideo;  (let  user  change  drive  if  necessary) 

611  1  Msg(’*»*Current  Data  Drive  is  .  Press  (esc)  to  change  it!W,  10,11); 

612  !  B - repeat 

613  1  !  inputrA',copy(drive, 1, 11,36,11, 2, true, FI, F10); 

614  !  !  ch:=  copy (answer, 1,1); 

615  1  !  if  notlch  in  [  A’ ,  B' , C ,  D  l)  then  beep(350, 150); 

616  1  E - until  ch  in  ['A','B','C','D']; 

617  1  Drive  :=  concatlch,': '); 

618  1  drscr;  (prompt  for  filename  to  store  blocks) 

619  1  msgf'Diskfile  name  to  store  the  current  blocks?', 1,10); 

620  !  writeln;  writeln; 

621  !  writeln! '***Ensure  that  your  DATA  disk  is  in  drive  Drive, '»»*'); 

622  1  input! 'A',  ",45,10, 8, true, FI, F10); 

623  1  filename: =  concat (Drive,copy (answer, 1 ,B) , ’ . BLX ' ) ; 

624  1 

625  !  AssignIBlockfile, filename);  (Open  file  and  save  G_eq  block  first,  then  loop) 

626  !  FENRITEIBlockfile);  (blocks) 


£*rj? 
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627  1 

628  ! 

629  ! 

630  1 

631  1 

632  1 

633  ! 
63.4  ! 

635  ! 

636  ! 

637  ! 
63B  1 

639  ! 

640  ! 

641  1 

642  1 

643  ! 

644  1 

645  E- 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661  B 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 
6B0 
681 
6B2 
683 


,lrite(Blockfile,G_eq);  (store  Geq  at  pointer  position  0  in  the  file) 
(This  allows  block  input  routine  to  load! 

(the  equivalent  block  as  a  single  block) 


for  pnr:=l  to  NBlocks  do  (store  other  block  information  sequentially) 

- begin 

seek (Blockf  i  le,pnr ) ; 
wite(Blockfile,81ock(pnr3); 


-end; 


TextColor (Green);  (alert  user  that  bop  has  been  saved) 
Center ( 'The  current  problem  loop  has  been  stored!', 1,20, 80); 
beep (350, 150) ;HighVideo; 


del  ay  (200); 


dose(Blockfile);  (close  the  file) 
-end; 


(h  The  following  procedure  allows  the  user  to  get  the  current  »*) 
{«»  loop  to  a  disk  file.  **) 

(mHHmHmHmmHHHiHHiiHtmimmmmatmnmi) 


Procedure  RetrieveFroblem; 
var 

Readfile  :  file  of  Blocks; 

filename  :  str20; 

readerror  :  boolean; 


-begin 


Clrscr;  HighVideo;  (allow  change  of  disk  drive  if  desired) 
Nsg('H»Current  Data  Drive  is  .  Press  <esc>  to  change  it'***' ,10,11); 
— repeat 

input! 'A', copyldrive, 1 , 11,36,11, 2,  true, FI, F10); 
ch:=  copy(answer,l,l); 

if  not (ch  in  t  'A' ,  'B' ,  'C' , "D'D  then  becp(350, 150) ; 


-until  ch  in  [ 'A' ,  B‘ , 'C' , 'D'l; 


frive  :=  concattch,  V); 


(call  Directory  to  display  eligible  files) 
Directory (drive, extension,  filename, readerror); 


if  not (readerror)  then 
- begin 

Assign (Readf i 1 e , f i 1 ename) ;  (open  the  file  and  retrieve  contents) 
Reset (Readfile); 

Read (readf i le,6_eq) ; 

NBlocks  :=  0; 

while  not  EOF (readfile)  do 

- begin 

NBlocks:1  NBlocks+1; 

Seektreadfile, NBlocks); 


110 
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S93  E - 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711  B - 

712  1 


Read(readfile,Block(NBlocks]); 

- end; 

- end 

else 

- : - begin 

delay(lSOO);  (else  wait  for  Directory  error  message  and  continue) 

windowU ,  1 ,00,25); 

closer; 

- end; 

- end; 


{»  The  following  procedure  provides  the  secondary  program  menu  »*) 
'**  for  all  the  block  input  and  manipulation  routines,  it  is  »*) 

{♦»  called  from  the  main  menu  block  input/change  choice.  »*) 

{HHHHtttmBHmtmmitfHHHmfHHHmmHmHtiHtH} 

Procedure  InputHenu; 


i,Tab  :  integer; 
Okchoices  :  set  of  char; 


713  ! 

714  ! 

715  E— 

716 

717 

718 

719  B— 

720  1 


procedure  Menultent(pick:char;description:str80;color: integer) ; 
— begin  (displays  menu  items  in  colors  desired) 

textcolor (color) ; 

Krite(":Tab,'C);  textcolor  (White);  writelpick); 
textcolor  (color);  write.'nO  ^description); 

—end; 


-begin  (PROCEDURE  INPUTHENU) 

ClrScr;  TextColor (White);  Finished  :=  false; 

Center!’***  INFUT/CHftHGE  MENU  «*♦  ’,1,4,80); 
for  i:=  1  to  4  do  witelnt"); 

Tab:=  25; 

Henultemd', 'Input  Block  Transfer  Functionls) ' , green); 

Henul tern ('C', 'Change  Block  in  Current  Loop', green); 
writeln; 

HenuItem('A','Add  a  Block  to  Current  Loop' , green); 

HenuItemCD',  'Delete  a  Block  from  Current  Loop' , green); 
writeln; 

HenuItemCS’, ’Save  Current  Loop  to  Disk  File’, green); 

HenuItemCR', 'Retrieve  Problem  from  Disk  File', green); 
writeln; 

HenuItemCH',  'Help',  blue); 

HenuItem(T,’Exit  to  Main  Henu',lightmagcnta); 

TextColor (Green); 

Box(20,2,65,22,6);writelni"); 

Set_Cap_Hum('C',’  ’);Say_Cap_Num; 

TextColor (White);  Center! 'Press  Your  Selection’, 21, 21, 38);  lowVideo; 
if  NBlocks  <=  0  then  Okchoices  :=  IT, 

else  Okchoices  :=  I ’!’ , 'C‘ , ’fl’ , ’O’, "S’ , ’R' ,’H‘ , ’B’]; 


V^-\v 


o.sj-s 
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741 

742 

743 

744 

745 

746 

747 

748 

749 

750 
751- 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 


765 

766 


7.8 

769 

770 

771 

772 


E- 


-repeat  {wait  for  user  to  input  a  keypress,  check  for  validity,  branch) 
Option;  if  not  (Ch  in  DKchoices)  then 

- begin 

Beep  1350, 150);  Tex tCol or (White); 
if  NBlocks  <=  0  then 
- begin 

nsgt 'WARNING  :  First  INPUT  the  block  description! ',1,25); 


-end; 


-end; 


-until  Ch  in  OKchoices; 
-case  Ch  of 


Trans_function_lnput; 

Change.Block; 

Addjtock; 

Delete_Block; 

SaveJHock; 

Retr i eve_Probl eb; 
InputHenuHelp; 
Finished:3  true; 


!  E - 

end; 

;  eiiuj 

o  .  ru,; „  n — ^ 

n 

DCijin  id 1 1 1  nuyidiu  mpuw 

Drive:3  'A'; 

D 

i 

i 

E - 

“•Repeat 

Inputhenu; 

- Until  finished; 

(due  to  large  size  of  input  routine,  compiled  as) 
(a  CHAIN  program  called  from  CAD.CQI1.  When  ) 
(routine  is  complete,  CAD.C0H  is  re-Executed.  ) 


AssigntCadFile, 'Cad.com'); 
Execute(CadFile); 

-end. 
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1 

Program  Utilityjtenu; 

(displays  utility  renu  on  screen  and  branches  to 

2 

\ 

user-selected  program) 

* 

<41  typedef.sys) 

5 

(41  ut-nodOl.inc) 

6 

(41  ut-mod02,inc) 

7 

(41  ut-mod03.inc) 

8 

(41  roots. inc) 

9 

(41  expand,  inc) 

10 

(41  ShowFoly.  inc) 

11 

(41  Stafact.inc) 

12 

(41  UserPoly.inc) 

13 

(4!  UtilHelp. inc) 

14 

15 

var 

16 

through:  boolean; 

17 

18 

19 

20 

procedure  ShowMenu; 

21 

var 

22 

I, Tab 

:  integer; 

23 

Okchoices 

:  set  of  char; 

24 

Input  routine 

:  file; 

25 

26 

27 

28 

procedure  Henultem(pick:char;description:5trBO;color:integer); 

29 

(makes  writing  colors  easy) 

30  G 

- - - begin 

31 

textcolor (color); 

32 

write! ' ‘ : Tab, 

textcolor (White);  write(pick); 

33 

textcolor (color) ; 

writelnO  ', description); 

34 

end; 

35 

37 

—  -  -  —  begin  (SbowMenu) 

38 

ClrScr;  TextColorlWhite);  Through  :=  false; 

39 

Center  Cm  UTILITIES  MENU  **»  ',1,4,801; 

40 

for  I:=  1  to  4  do  writeln!"); 

41 

Tab:=  21; 

42 

43 

Menu  1  tern  IT',' Show  Current  Loop  Blocks  (Factored) ', green); 

44 

henulteml'P', 'Show  Current  Loop  Blocks  (Polynomial) ', green); 

45 

writeln; 

46 

MemiItem('U','Factor  a  User-Input  Polynomial' ,green); 

47 

writeln: 

48 

Henultenl  H' , 'Help'  Hghtblue); 

49 

writeln; 

50 

Henultenl '8', 'Exit  To  Main  Menu ’ , 1 i ghtnagenta) ; 

51 

TextColor (Yellow); 

52 

Box  (20,2,65, 18,6)  ;writeln!"!; 

53 

Set  Cap  Nunl'C' 

',’  ’ ) ; Sa /  Cap  Num; 

54 

TextColorlWhite) 

Center! ’Press  Your  Selection', 21, 17,38);  LowVideo 

55 

(sets  legal  choices  if  no  blocks  have  been  entered) 

56 

If  ((Blocks  <=  0  then  OKchoices  :=  [  H  ,  8  ,  U  ) 
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else  OWchoices  :=  C  F' , 'P' ,  Q' ,'!]■, 'H‘3; 

- repeat 

Option: 

if  not  (Ch  in  OKchoices!  then 

- begin 

Beep (350, 150);  TextColor (White); 
if  NBlocks  <=  0  then 
- begin 

msg ('WARNING  :  First  INPUT  the  block  description1 ’,1,25); 

- end; 

- end; 

- until  Ch  in  OKchoices; 

- case  Ch  of 

T  :  Shm_Factored_Rnots; 

‘P’  :  ShcwPoly; 

'll'  :  User  _Polynomal_Roots; 

’H'  :  UtilitiesHelp; 

- 'fl'  :  Begin 

through  :=  true; 

assign (cadfile, ’cad. coo'); 

e*ecute(cadfile); 

- end; 

- end; 

- end; 

{»  Program  Starts  Execution  ») 

— begin 

- repeat 

Showdenu; 

- until  through; 
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2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28  B — 

29  1, 

30  1 

31  1 

32  ! 

33  E — 


(HHHHKftHHHmHtHHHIHmHHUlfHHWmmimHlUmtHHHl 

{»*  FREQUENCY-RESPONSE  is  the  driver  program  for  the  Bode  and  Nyqmst  **) 
(h  platting  routines.  It  simply  invokes  Bode  and,  when  finished,  returns**) 
{»*  control  back  to  the  main  menu.  *») 


Program  Frequency_Response; 


(41  typedef .sys)  (graphics  routines) 
(II  graphic. sys) 


(41  kernel. sys) 
(41  windows. sys) 
(41  polygon. hgh) 
(41  axis. hgh) 


{41  UT-H0D01.1NC  )  (I/O  routines) 
(41  UT-H0D02. INC  ) 

(41  UT-M0D03. INC  ) 


(41  GrapHenu.inc) 
{41  PlatBode.inc) 
<41  PlotNyqs.inc) 
{41  Roots. inc) 


{graph  options  menu) 

{Bode  plotting  routine) 
(Nyquist  plotting  routine) 
(RootFinder  routine) 


{41  Bode. inc) 


(Bode  routine) 


BODE;  (call  the  Bode  calculation  routine) 


Assign (cadf i le, ■CfiD.COM') ; 
Execute(cadfile); 

-end. 


{re-execute  the  main  menu  routines) 


k 


5*- 
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57  ! 

58  !  Hsgt'Open  (0)  or  Closed  1C)  Loop  Plot.?', 5, 7!; 

5?  1 

60  !  8 - repeat 

61  1  !  input t ’A' , " ,45,7,2,true,Fl ,F10) ;  (sets  flag  OpenLoop  if) 

62  1  !  temp  :=  copy  I  answer  ,1,1);  (user  selects  the  open) 

63  1  1  if  notftenp  in  1'0','C'l)  then  beep  1350, 150);  (loop  option  for  plot  ) 

64  1  E - until  temp  in  ['O',  C']; 

65  !  if  temp  z  'O'  then  OpenLoop  :=  true 

66  else  OpenLoop  :=  false; 

67  ! 

6B  1  if  not(BigPic)  then 

69  1  B - - - begin 

70  1  !  HsgCWhat  is  the  first  frequency  to  be  plotted?', 5, 9); 

71  !  !  Nsgl'fe.g.  .01,  .001,  1000,  etc.)',  10,10); 

72  1  1  Input  IT , "  ,45, 10, 8,  true, FI, F10) ; 

73  !  i  VaH answer , Ho , code ) ;  (Ho  is  the  first  plotted  freq) 

74  !  ! 

75  !  1  Hsgf'lkw  many  decades  do  you  want  plotted?', 5, 13); 

76  1  1  Input  CN' , ' '  ,45, 13, 2,  true, FI  ,F10); 

77  !  !  Val (answer, NusberDecades, code); 

78  !  E - end 

79  !  else 

80  !  B - begin 

81  1  1  Ho:=0. 001 ; 

82  !  I  NunberDecades: =3; 

83  I  E - end; 

04  1 

85  !  Cl r3cr; TextColor (White); 

86  !  CenterCH*  Computing  Points  for  Bode/Nyquist  Plot  -  Flease  Wait  ***',  1 , 12,80) 

87  !  TextColor (Yellow); 

88  1 

89  I  with  G_eq  do  (compute  closed-loop  (unity  feedback)  G  equivalent) 

90  I  B - begin  (called  CLGEQ  --  which  is  also  a  blocks  type  record) 

91  !  ! 

92  I  I  CLGE0.K  K;  (dosed  loop  K  same  as  open  loop  K) 

93  I  I  CLGEQ. NZERDS: =NZeros;  (as  are  the  zeros  of  the  function  1 

94  !  I 

95  1  1  for  i:=l  to  maxorder  do  CLGEQ. DenCoef f t i 3  :=  0.0;  (initialize) 

96  !  I 

97  1  !  for  ii-  1  to  NZeros  do 

98  I  I  B - begin 

99  I  I  I  CLGEQ. Real PartZeroLi 1  :=  RealPartZerotil;  (same  zeros) 

100  I  !  !  CLGEQ.  IraagPartZercEi 3  :-  imagPartZerolil; 

101  1  1  E - end; 

102  I  1 

103  !  1  for  i:d  to  NZeros  *  1  do 

104  !  1  B - begin 

105  !!  I  CLGEQ. DenCoefftil  :=  NumCoefftiJ  *  K;  (C.L.  denominator  equals  the  ) 

106  1  !  I  CLGEQ, NunCoeff (i 1  :=  NunCoeffti);  (sun  of  open  loop  denominator) 

107  1  1  E - end;  (and  K  times  O.L.  numerator  ) 

108  1  1 

109  1  1  for  i:=l  to  NPoles  ♦  1  do  CLGEQ. DenCoef f [ i ]  :=  CLGEO.DenCoeff(i)  * 

110  I  i  DenCoefftil; 

in  :  : 

U2  :  i 

113  I  I  if  NPoles  >  NZeros  then  CLGEQ. NF0LES: =NFol es  (NPoles  should  always  be) 
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114  I  1  else  CLGEQ. fFOLEG:=NZeros;  (greater,  But  to  be  safe) 

115  1  ! 

116  !  !  (compute  neM  denominator  roots) 

117  1  !  rootf i nder  (CLGEQ.  NPOLES ,  CLGEQ.  DenCoef  f ,  CLGEQ.  Real  PartPol  e , 

118  1  1  CLGEQ.  Im.agPartPole,0,0) ; 

H9  |  E - end.  {with) 

120  I 

121  1  StartDecade  :=  trunc (Log (Wo) ) ;  {compute  linear  scale  Id  plot  ) 

122  !  EndDecade  :=  StartDecade  +  NumberOpcades;  (log  numbers.  Also  figure  step) 

12J  1  Hf  :=  Ho  »  Expon(10.0,NumberDecades>; 

124  I  DeltaW  :=  Espon( (Hf /Wo) ,0.0125); 

125  1  Wi  :=  Ho: 

126  1 

127  ! 

128  !  for  Count  :=  I  to  01  do  (do  100  iterations.. .arbitrary  I) 

129  !  B - Begin 

130  !  ! 

131  !  1  if  OpenLoop  then  (compute  bode  numbers  with  Gjq  if  openloop) 

132  1  !  with  G_eq  do  (and  later  with  CLGEQ  if  closed  loop  ) 

133  !  1  B - begin 

134  !!  1 

135  !  1  I  ZHaqn: =1-0; ZPhase?  =0. 0; PMagn: =1 . 0;FPhase:  =0. 0:  (initialize) 

136  !  !  1 

137  !!  !  for  I  :*  1  to  NZeros  do  (compute  magn  and  phase  of  zeros  for  freq  step) 

138  1  1  !  B - begin 

139  !  !  !  1  ZHaqn: =ZHagn  *  Sqrt (Sqr (RealPartZeroi I j)+Bqr (Wi-ImaqPartZerod ]) ) ; 

140  1  1  1  !  if  RealPartZeroI I }  =  0.0  then  ZPhase: =ZFhase+pi /2. 0  else 

141  !  1  1  !  ZFhase:=ZFhasetflrcTan((Hi-IiiiagPartZerD[J])/(-RealPartZerD[l])); 

142  1  !  1  E - •‘-ends 

143  1  1  1 

144  !!  !  for  I  :=  1  to  NFoles  do  (compute  magn  and  phase  of  poles  for  freq  step) 

145  1  i  1  B - begin 

146  !  1  !  1  PMagn: =FMaqn  »  Sqrt (Sqr (Real PartPol etl))  +Sqr (Hi -ImagPartPol et  1  ] ) ) ; 

147  I  1  !  !  if  RealPartF'oledl  =  0.0  then  PFtiase:  =FPhase+pi /2. 0  else 

14B  1  1  !  1  FF1ia5e:=PFhase+ftrcTan( (Wi-lmagPartFole[I3) / (-RealPartPolell]) ) ; 

149  !!  1  E - end; 

150  1  1  ! 

151  !  1  !  B - If  Myquist  then  Begin 

152  !  i  !  !  Phase  :=  Fracl (ZPhase  -  FFhase) / i2*pi ) )  »  (Zap,); 

153  1  1  1  !  (Phase  ’modulo1  2Pi) 

154  !  1  !  !  Temp)  :=  abs( (KeZHagn/PHagn) *cos(Ftiase) ) ; 

155  1  1  !  1  TempY  :-  absl (K*ZHagn/PHagn)*sin (Phase) ) ; 

156  !  !  !  !  if  (BigPic)  and  (Temp)  >  100)  then  Temp)  :=  100; 

157  I  I  '  I  if  (BigPic)  and  (TempY  )  100)  then  TempY  :=  100; 

15B  !  1  !  1 

159  !  1  I  1  If  FhasetO  then  Phase:=  Phase+(2*pi); 

160  1  I  1  1  If  ((FhaseHpi/2))  and  (Phase1'.  (3*pi/2) ) )  then 

161  !  !  !  I  TempX:=  -TempX; 

162  !  1  I  1  If  ((Phase)pi)  and  (Phase) (2»pi)))  then  TempY  :=  -TempY; 

163  !  I  I  I  HagFhaseftrraytcount ,23  :=  Phase; 

164  !  I  I  !  HaqFtiaseftrr ayEcount ,  1 3  :=  K»ZHagn/Pmagn; 

165  !  !  1  1  Flotftrrayl [Count ,  1 3  :=  TentpX; 

166  I  !  I  !  PlotArrayKCount ,23  :-  -TempY; 

167  !!  !  E - end 

168  !  I  1  else 

169  !  I  !  B - Begin 

170  !  1  I  I  PlotflrrayHCcunt,!)  :=  Log  (Wi ) ; 


(fill  plotting  matrix) 
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171  I  !  !  1  {with  magnitude  values) 

172  I  !  I  I  PlotArrayltCDunt ,2)  :-  20*Log (KKZMagn/F'Magn) > ; 

173  !  !  !  ! 

174  I  I  !  !  PlotArray2tCount,l]  :=  Log (Wi ) ;  {fill  phase  matrix) 

175  !  I  !  I  Plotfirray2[Count,2]  :=  U80/pi)*(ZFhase-PPhase); 

176  !  !  I  !  (next  stmt  covers  freq  wrap-around) 

177  I  !  I  I  if  PlotArray2[Count,2)  >  0  then 

178  I  I  I  I  PlotArray2[count,2):=Plotftrray2Crount, 21-360; 

179  1  !  !  E - end; 

180  I  I  !  Hi  :=  Hi  »  DeltaH;  {increment  freq  step) 

181  !  !  E - end 

1B2  1  I 

183  !  1  else  with  CLGEO  do  {perform  same  steps  as  above  if  closed  loop  requested) 

184  !  I  B - begin 

185  1  1  !  ZHagn: =1 . 0;  ZPhase:  =0. 0;  PHagn : =1 . 0;  PPhase:  =0. 0; 

186  1  I  I  for  I  :=  1  to  NZeros  do 

187  !  !  !  B - begin 

188  1  1  I  !  ZHagn:=ZMaqn  *  Sqr t  (Sqr (RealPart Zero!  1 1)  +Bqr  (Hi-ImagPartZerot  ID); 

189  !  !  1  !  if  RealFartZerotn  =  0.0  then  ZFhase: =ZPhase^pi /2. 0  else 

190  111!  ZPhase:  =ZPhase+fircTan{ (Wi-!(»agPartZerot I ]) / (-RealPar tZernE ID); 

191  !!  !  E - end; 

192  !!  1 

193  !  I  !  for  1  :=  1  to  NPoles  do 

194  !!  !  B - begin 

195  !  i‘1  I  PHagn:=PHaqn  ♦  SqrtlSqriRealPartPoleUD+SqrlWi-lmagPartPoleU))); 

196  ill!  if  RealPartPoleU)  =  0.0  then  PFhase:=PFhase+pi/2.0  else 

197  I  I  I  I  PF'hase:=PPhase+ftrcTan( {Wi-IffiagPartPole£I J)/ (-RealPartPolet  13) ) ; 

198  1  !  !  E - end; 

199  !  1  ! 

200  !  !  !  B - If  Nyquist  then  Begin 

201  I  1  1  1  Phase  :=  FracdZPhasB  -  FFhase)/(2»pi)>  »  (2*pi); 

202  1  1  1  1  {Phase  "modulo"  2Pi) 

203  1  1  1  1  Temp?  :=  abs ( {K*ZMagn/PHaqn) *cos IFhase) ) ; 

204  I  I  I  I  TeapY  :=  abs<IK*ZHagn/PI1agn!»5in(Phase)); 

205  1  !  !  !  if  (BigPic)  and  (Temp?  >  100)  then  Temp?  :=  100; 

206  1  I  !  1  if  (BigPic)  and  (TempY  )  100)  then  TempY  :=  100; 

207  !  !  1  1 

208  !  I  I  1  If  Fhase-iO  then  Phase:1  Fhase*(2*pi); 

209  (111  If  (IFhaseXpi/2))  and  (Phase-! (3*pi  12) ) )  then 

210  I  I  I  !  TempX:=  -TempX; 

211  I  I  I  1  [f  ((Fhase)pi)  and  (Fhase<2*pi))  then  TempY  :=  -TempY; 

212  111! 

213  I  I  I  I  FlotftrraylECount,!]  :=  TempX; 

214  I  I  I  I  PlotfirrayKCount.2]  :=  -TempY; 

215  I  I  I  E - end 

216  I  I  I  else 

217  I  I  I  B - Begin 

218  I  I  I  I  PI  otArray 1 [ Count, 1)  :=  Log(Wi);  {fill  plotting  matrix) 

219  I  I  I  I  {with  magnitude  values) 

220  I  !  I  I  PlotfirrayUCount,2)  :=  Z0*Log (K* ( ZHagn/PHagn) ) ; 

221  I  I  I  I 

222  I  I  I  I  Plotftrray2[Count,l)  :=  Log(Hi);  {fill  phase  matrix) 

223  I  I  I  I  PlatArrayZCCount ,2)  :=  ( 180/pi ) * (ZPhase-F'Phase) ; 

224  I  I  I  I  (next  stmt  covers  freq  wrap-around) 

225  I  I  I  I  if  PlotArrayZCCount ,23  >  0  then 

226  I  I  I  I  F’lotArray2[count  ,2]:=P1  otArray2tcount  ,23-360; 

227  I  I  I  E - end; 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 


I  1 
I  I 

!  E- 
E— 


Hi  :=  Hi  *  DeltaH; 

-end; 

•end; 

if  Nyquist  then 

PI  ot_Nyqui  st  t  Star  t  Decade ,  EndDecade ,  NumberDecades ,  PI  ot  Array  t , 
HagPhaseArray,BigPic,OpenLoop) 


I  else 

!  PlotBode(StartDecarie,EndDecade,Nui',berDecades,PlotfirrayllPlotArray21 

!  OpenLoop  ); 

1 
i 

E- 


■end; 


J  -rj '  J  -V  «■, 


IW»1, 


rfi.Ki, 


j*. 


„‘»CV  ^-'  iCd)TJ  f-J  • '.  •-/.  Vi.W.V/fl/.Vi'  i.  .«.V>  v  ,v 
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procedure  PlotBade(StartDecade,EndDecade,NujiberDecades: Integer; 

PlotArrayl,PlotArray2:PlotArray;0penLoQp:  Boolean); 


{t»  Procedure  to  Plot  the  LIN-LOG  chart  for  the  Bode  diagram.  »») 


NagnArray:  arrayC1..12]  of  char  =  ni'/A'/B'/N'/rtT/U'/D'/E','  ' , 'd ' , 'B' ) ; 
PhasArray:  arraytl. .  12]  of  char  =  I 'P* , *H* , *A’ , 'S', 'E' , '  ’/d'/e'/g','  '); 

FreqArray:  stringf.19]  =  'FREQUENCY  (rad/sec)'; 


var  i,j,n 
ch 

x  1  ,x2 

Delta 

MaqLabel 

PhsLahel 

DecLahel 

Titlel, 

TitleZ 

Burp Graph 


: integer; 
:char; 
:integer; 
:real; 

:  string!!); 
:  strinq[41; 
:  string!!]; 


strinqtBOl; 

Boolean; 

real; 

Boolean; 

text; 


function  Log (X:real ) :real ; 
— Begin 

If  1=0  then  Log:=Q  else 
Log  :=  Lnll)/Ln(10); 
— End; 


function  Expon(Y,Y:real):real:  (computes  Y  raised  to  1  power) 
- Begin 

Expon  :=  exp (  I  *  ilnlY!!!; 

- end; 


Procedure  PrintBraphData;  (prints  numbers  to  a  file  or  printer) 

---■ Begin 

LeaveEraphic; 

Clrscr; 

Center !'»*♦  TURN  ON  PRINTER  AND  ALIEN  PAFER  »«'  ,1,10,80) ; 

TextColor (green); 

msgl'press  (F)  to  continue,  <F>  to  list  to  file*,  (Q>  to  quit  print', 1,13); 

TextColor (white); 

msgl'ffile  option  prints  numbers  to  a  file  named  "BODE. NUH",  1,17); 

msgl'on  the  current  drive.  Browse  this  file  off-line  using  the  DUS  ’type’  command. ',1, IB); 


- repeat 

Read(kbd,ch); 

If  (ch  =  ’C')  or  (ch  =  c ')  or  (ch  =  T)  or  (ch  =  'p')  then 
- begin 

If  (ch  =  'F’l  or  (ch  =  'f')  then 
- begin 


-  -  -  -  ..-f.  -fj  /V  V.  >- 


inn 


WSCTiV' 


f  -V  J*  .  J'  .  /  I 


J  ■ 
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57  ! 
5B  ! 
59  1 

bo  : 
61  1 
62  1 

63  ! 

64  ! 

65  ! 

66  1 

67  ! 

68  1 

69  1 

70  ! 

71  ! 

72  1 

73  1 

74  1 
:7:3); 

75  1 

76  1 

77  1 

78  1 

79  ! 

80  ! 
81  1 
82  1 

83  ! 

84  1 
B5  1 
86  ! 

87  ! 

88  E- 

89 

90 

91 

92 

93 

94  8- 

95  ! 

96  1 

97  ! 

98  I 

99  1 

100  1 
101  ! 
102  1 

103  1 

104  1 

105  1 

106  1 

107  1 

108  ! 

109  1 

110  I 

111  1 
112  ! 
113  ! 


!  assignUist, 'Bode.NUM' ) ;  (assign  file) 

!  rewited  ist) ; 

E - end 

else 

B - Begin 

!  assigndist, 'LST: ');  (otherwise  assign  printer) 

!  rewritellist); 

E - end; 

Titlel:=( ‘  w  (rad)  Gain  (db)  Phase  (deg)’): 

Title2:  =  (  ’ - 

writelnllist, Title!); 
wri  telnd  ist,Title2) ; 
writelnllist);  writelnllist); 
for  i:=  1  to  81  do 

B -  begin 

!  w  :=  expon ! 10.0,PlotArrayIti ,  1 )) ;  ■ 

1  writelnllist,'  '  ,w:  11;3,  ’  PlotfirrayKi  ,21:8:3, ' 

1  if  i=  50  then 

;  b - begin 

1  !  write(list,chr(12)); 

!  !  writelnllist); 

1  !  writelnllist, Title!); 

1  !  writeln(list,Title2);  witelnllist);  writelnllist); 

1  E - -end; 

- en(j. 

- until  ch  in  t'F','f','Q','q','P’,'p']; 

EnterGraphic;  (when  finished  printing,  gr  1  ick  to  graphics  node  and) 

swapscreen;  (display  graph) 

dosellist); 

- end; 


•begin 

initgraphic;  (set-up  windows  for  display) 

Def  ineWindowd  ,0,0,XHaxGlb,YhaxGlb) ; 
DefineWindow(2,5,15,)(MaxGlb-5,ftlaxGlb-15); 
DefineHindowl3,5,15,7inaxGlb-5,yHaxGlb-15); 

Def ineWorld (1,0,0,100,100); 

Def i neWor 1 d 1 2 , Star tDecade ,60 , EndDecade , -60) ; 

Def ineHorld 13, StartDecade,0, EndDecade, -360); 

SelectHorldll); 

SelectHindowil); 

SetBackgroundlO); 

5el ectHorld (2) ; 

SelectHindowl2); 

DrawBorder; 

SetLineStylell); 

For  I:=l  to  5  do  (draw  horizontal  graph  lines) 
DrawLine(BtartDecade,-60+(20«I ) , EndDecade, -60+120*1)) ; 

For  J:=0  to  Number Jecades-1  do  (draw  vertical  logarithmic  graph  lines) 
122 


1 ,PlotArray2ti ,2] 


■Co'> 
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114 

115 

116 

117 

118 
117 
120 
121 
122 

123 

124 

125 

126 

127 

128 
12? 

130 

131 

132 

133 

134 

135 

136 

137 
136 
13? 

140 

141 

142 

143 

144 

145 

146 

147 

148 
147 

150 

151 

152 

153 

154 

155 

156 

157 

158 
15? 
160 
161 
162 


-Begin 


For  !:=  1  to  10  do 
- Begin 

Lelta:  =StartDecade  +  (Log ( 1 )  +  J); 
Drawl inelDelta, -60, Delta, 60); 


-end; 


-end; 


{y-axis  titles) 


SelectWindowll); 

For  I:=  1  to  12  do 
- Begin 

DrawText  15,55+6*1 1  l,f1agnArray[I3); 
DrawText  (630,60+6*1, 1  ,FhasArray[  ID; 


-end; 


DrawTex t (250, 175,1 ,FreqArray) ; 


For  I:=  0  to  6  do 
- Begin 


(x-axis  title) 
(y-axis  scale  label) 


S tr ( 60-20* 1:3, MaqLabel ) ; 
DrawText(12, 13+28*1,1,  HagLabel); 
Str!0-60*l:4,PhsLabel); 

DrawTex  t (600, 13+28* 1 , 1 ,PhsLabel ) ; 


-end; 


For  I:-  0  to  NumberDecades  do 
- Begin 


(label  the  logarithmic  scale) 


Str(Trunc(StartDecade)+I:3,DecLabel); 

DranText (36+1570  div  NumberDecades)  *I,lB6,i,DecLabel); 
DrawText (30+(570  div  NusberDecades)  *1,170,1, '10'); 


-end; 


SetLineStyle(O); 

SelectHi ndox(2) ; 

DrawPolygon (Plotfirrayl , I , -81, 0,1,0);  (plot  the  magnitude) 
Selector  ld(3); 

SelectHindow(o); 

SetLineStyle(3); 

DrawPolygon (Plotftrray2, 1,-81, 0,1,0);  (plot  the  phase) 
copyscreen;  (save  screen  to  memory) 

-—repeat  until  keypressed; 


quit  :=  false; 

-repeat  (call  for  graph  options  menu) 

if  OpenLoop  then  Graph _Henu( 'Open  Loop  Bode  Plot ' ,DuinpGraph,quit) 
else  Graph_Menu( 'Closed  Loop  Bode', OunpGraph, quit); 

If  Dump-Graph  then  PrintGraphData;  (dump  numbers  if  desired) 


-until  quit; 


LeaveGraphic;  (leave  graphics  mode) 
-end; 


12  3 


SS 


■■ 


V?  I1 TO  *_*  R. ■» 


’  /L  f  »  '>  "?*  . 


Xxkt/* 


r '  •  .'.w 
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2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 
2l 

27 

28 

29 

30 

31 

32 

33 

34 

35  B - 

36  1 

37  E - 

38 

39 

40 

41 

42  B — 

43  1 
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{»*  FI ot _Hyqui st  is  a  routine  to  draw  the  Nyguist  plot  from  the  data  ») 
{h  generated  in  the  Bode  procedure.  ») 

{HfHiMiHiimHwmHmmmimmmmmmmmimwmmm) 


Procedure  PlotJlyquistlStartDecade,  EndDecade,  NumberDecades: Integer; 

PI ot Array  1 , MagPhaseArray: PI ot Array ; 

Bi gPic ,0penLoop : Bool ean 1 ; 


Xint,Yinr , 
i,j,n,code  : 


integer; 


Yrain,Y«ax , 


Xnin,Xmax  : 

XLabel , 
YLabei  : 

Titlel, 
Title2  : 

DumpGraph, 
quit  : 


Stringt3]; 


StrinqtBOl; 


Xninl.,Yni  nL: 
GraphWidthX, 
BraphHidthY: 
Xexponent, 
Yexponent  s 
XexpLabel , 
YexpLabel  : 
Graphflrray  : 
List  : 


Boolean; 

real; 

Real; 


integer; 


stringl3]j 

FlotArray; 

text; 


function  Expcn fY,X:real ) :real ;  (computes  Y  raised  to  X  power) 
- Begin 

Expon  :=  exp (  X  *  (ln(YH); 

- end; 


Procedure  PrintEraphData;  (dump  data  used  to  make  graph  to  printer) 

— Begin 

LeaveBraphic; 

Clrscr; 

Center  ('hi  TURN  ON  PRINTER  AND  ALIEN  PAPER  «i', 1,10, 80); 

TextColor (green); 

msgt'press  <P>  to  Print,  <F>  to  list  to  file  »,(Q>  to  quit  print', 1,13); 

Tex tCol or (white); 

- repeat 

msgdFile  option  prints  numbers  to  a  file  named  ’NYQUI5T.NUM"',),17); 

ssgCcn  the  current  drive.  Browse  this  file  off-line  using  DOS  ’type”  command. 1 , 1 , 18) ; 


Read(kbd,ch); 

If  (ch  =  ’F ’ )  or  (ch  =  T)  or  (ch  =  ’p ' )  or  (ch  =  ’P‘)  then 
— begin 
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57  1  !  !  if  (ch  =  F  )  or  (ch  =  'f ' )  then 

5B  !  1  !  B - beqin 

59  !  !  1  1  assiqndist, ' Nyquist.NLfM' ) ; 

60  !  !  !  !  rewitedist); 

61  !  1  1  E - end 

62  !  1  !  else 

63  !  1  !  B - -begin 

64  1  1  1  1  assign(list,’LST:'); 

65  I  !  1  i  rewitedist); 

66  !  !  !  E - end; 

67  !  !  ! 

68  I  !  !  Titlel:=C  h  (rad)  Magnitude  Phase  (rad)  Xplot  YPlot ') ; 

69  !  !  !  Title2:-C - — 

70  !  1  !  witelnllist, Title!);  Hriteln(list,Title2); 

71  I  I  I  witelnllist);  witelnllist); 

72  !  !  !  for  i:=  1  to  B1  do 

73  !  I  I  B - * - begin 

74  1  !  1  !  h  :=  expon ( 10.0,PlotArraylti , 1 1); 

75  1  !  1  !  witelnllist, w:9:3,'  ' , MagPhaseflrray t i  ,13:11:3,'  ' ,HagFhaseflrray[i ,23: 11:3,‘ 

76  1  !  !  !  Plotftrraylti , 1 3: 10: 3, '  ' ,-Plotftrrayl Ci ,23: 10: 3) ; 

77  1  !  !  1  if  i=  50  then 

78  1  I  I  !  B - begin 

79  I  1  !  !  !  witelnllist); 

80  !  !  !  I  !  witedist,chrll2)); 

81  I  !  I  1  !  nritelndist, Title!); 

82  !  I  1  I  !  witelnllist, Tit!e2); 

83  I  !  1  !  1  witelnllist):  witelnllist); 

84  I  !  !  I  E - end; 

85  !  !  !  E - - - - - end; 

86  !  1  E - end; 

B7  !  E - until  ch  in  E  F ' , ' f ' ,  Q ' ,  q' ,  P" ,  p ‘ 3; 

BB  I  EnterGraphic; 

89  i  swapscreen; 

90  I  closellist); 

91  E - end; 

92 

93 

94  B - Begin  IPlotJIyquist)  (prompt  for  window  parameters) 

95  !  if  not (BigPic)  then 

96  !  B - begin 

97  :  !  Ft53:=  * 1511N00505-010101’ ; 

98  !  1  Pt63:=  '15121100506-010101'; 

99  I  1 

100  I  !  Cirscr;  TextColor (LiqhtBlue) ; 

101  !  1  Center)'***  NYGUlbT  PLOTTING  ROUTINE  ***',1,2,80); 

102  !  I  HighVideo; 

103  !  I  FillChar(s,100,»205);S:=copy(s,l,B0); 

104  !  !  witeln;witelnls):witein; 

105  1  !  nsg ( 'Viewing  Coordinates  for  Nyquist  Plot1, 1,6); 

106  1  I  TextColor (white) ; 

107  I  !  msg ('Enter  X  and  Y  values  (graph  will  span  -X  to  X,  -Y  to  Y) ‘ ,1 ,7); 

108  I  !  TextColor (yellow); 

109  I  !  witeln;witeln;witeln;witeln; 

110  !  1 

111  1  1  wri telnl "X-Maximum:  '); 

112  !  !  witelnCY-Haximum:  '); 

113  !  ! 

125 


i 
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Input  _Hand 1 er ( ' N0506 ' , Esc  ape ) ; 
wri telngwri teln; 

writelnl'Any  changes  to  these  parameters?  (Y  or  N):'); 

Input! 'A',", 45, 14, 2, true, FI, FIO); 

If  lanstter=T)  or  (FI)  then  lnput_Handlerl'C050i' , Escape); 

Val  (filvar[5],X(nax,code); 

Val  If ilvarfi], Yeas, code); 

Xmin:=-Xmax;  Y«in;=-Yfflax; 

- end 

else 

- begin 

Xmin;=  -50;  (set  default  values  for  "big  picture*  plot) 

Xmax:=  50; 

Ymin:=  -50; 

Ynax:=  50; 

- end; 

INITERAFHIC;  (define  world/windov*  and  draw  X!<Y  axes) 

Def i neHi ndon ( 1 , 0 , 0 , XMaxGl b , YHax GI  b ) ; 

DefineWindoM(2,0,0,XHaxGlb,YHaxGlb); 

Def ineHorld (1 ,Xwin,Ymin ,Xmax , Ymax); 

Def ineHorld(2,0,0, 100, 100) ; 

Sel  ectifor  1  d  ( 1 1 ;  Sel  ecttf  i  ndon  ID;  DrawBorder ; 

SETCLIPPINGON; 

DraivLi  ne(Xmin,0,X(nax  ,0); 

DrawLine(0,Yfflin,0, Ymax) ; 

n:=l; 

for  i;=l  to  80  do 

if  (aislplotarraylti ,13)  >  to)  or  (abs(plotarrayl[i ,21)  >  Ymax)  then 
n:=  n+1 ; 

if  nOl  then  n:=  n-1;  (use  1  extra  point  beyond  graph  border) 

DrawPolygon (PlotArrayl ,n,-B0,0, 1,0) ;  (draw  graph  on  screen) 


(compute  /  k  Y  non-fraction  labels  with  exponent) 

/(exponent  0; 

graphwidth/  :-  Xmax  -  Xmin;  XminL:-  Xmin; 
while  graphwidth/  <  10  do 

- begin 

graphwidthX  :=  qraphuidth/  *  10.0; 

XminL  :=  XminL  *  10.0; 

/exponent  :=  /exponent  -1; 

- end; 

Yexponent  :=  0; 

graplwidthY  :s  Ynax  -  Yiin;  YminL  :=  Yitin; 
while  graphwidthY  <  10  do 

- begin 

graphwidthY  :=  graphwidthY  »  10.0; 

YminL:=YminL  HO.O; 

Yexponent  :=  Yexponent  -I; 

- end; 

str (/exponent: 3, /expLabel ) ; 
str  (Yexponent:3,YexpLabel); 
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171  ! 

172  1  Xint:=ftound(  (XnaxGlb+1 )/10) ; 

173  !  Yint:=Round ( (YMaxGlb+1 )/10) ; 

174  1 

175  1  Select'  i'<2); 

176  1  Select!:  *(2); 

177  1  For  i:=  i  t  9  do  (tabel  X,Y  axes  with  scale) 

173  1  B - Begin 

17?  1  1  str (Round(Xmi’iL+GraphHidthX/10  *  i):3,XLabel); 

180  1  1  str  (Round  (YioinLrGf  aphWidthY/10  i  i):3,YLabel); 

1B1  !  1  DrawTextKMO  *  i  ,47, 1  ,XLabel > ; 

182  !  1  if  i  0  5  then 

193  1  !  Dra«TextH!51,10  »  i,l,  YLabel); 

184  1  E - end; 

185  1 

186  !  if  Jexponent  0  0  then  (print  l  exponent  on  graph) 

187  1  B - begin 

1B8  !  I  DrawTextW(92,43,l,'x  10'); 

189  !  !  Dr awTex tH (95 ,45,1, XexpLabel ) ; 

190  !  E - end; 

191  i 

192  !  if  Yexponent  O  0  then  (print  Y  exponent  on  graph) 

193  !  B - beqin 

194  I  1  DrawTextW(55,95,l, 'x  10'); 

195  !  1  DraMTextW (58,98, 1 , XexpLabel); 

196  !  E - end; 

197  ! 

198  1  Dr aHTextH(?2, 55,1, 'REAL');  (label  real/inag  axes) 

199  !  DrawTextHI44,95,l,'lhfiG'); 

200  ! 

201  ! 

202  1  E - Repeat  until  Keypressed;  (Pul  option  menu  on  screen) 

203  !  quit:2  false; 

204  1  B - repeat 

205  !  !  if  OpenLoop  then  Graph_Menu( 'Open  Loop  Nyquist',DumpGraph,quit) 

206  !  !  else  GraphJIenu  I' Closed  Loop  Nyqui st ' , DumpGraph , quit); 

207  1  !  if  DumpGraph  then  FrintSraphData; 

208  !  E - until  quit; 

209  !  LeaveGraphic; 

210  E - - - end; 
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2 

3 

4 

5 

6 
7 
B 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25  8— 


Procedure  Raot_LacuslG_eq:blocks); 
Label 


QnErr; 

Var 

I ,J,code 
FlotP'ole, 
PlotZero 
TempPoly, 
HoldPoly , 
PlotRealFole, 


integer; 

PlotArray; 


PlotlmagPole  : 

;  PolyArrayi 

DeltaGain, 

StartGain, 

Endu'ain, 

Variable_Gain, 

Xniin,Xmax , 

Ymin,YBax 

:  Real; 

Negjeedback 

:  Boolean; 

pg,qg 

:  real;  - 

Dump6raph,quit 

:  boolean; 

list 

:  text; 

LineCount 

:  integer; 

Procedure  PrintGraphData;  {dumps  rootlocus  data  to  printer) 

— Begin 

LeaveGraphic; 

Clrscr; 

Center!'***  TURN  ON  PRINTER  AND  ALIGN  PAPER  ,1,10,80); 

TextColor(green); 

•sgCpress  <P>  to  Print,  (P>  to  list  to  a  file*,  <Q>  to  quit  print 1 , 13) ; 
TextColor(white); 

fflsqf  *File  option  prints  numbers  to  a  file  named  'ROOTLOC. Nun”,  1,17); 
msgCon  the  current  drive.  Browse  this  off-line  using  DOS  "type"  command.  ',1,10); 


- repeat 

Read(kbd,ch); 

If  Ich  =  'F')  or  (ch  =  'f')  or  (ch  =  ?')  or  (ch  =  p ' )  then' 

- begin 

if  (ch  =  *P')  or  (ch  *  f ')  then 

- begin 

assign (list, 1  Root  Loc.  NUN'); 
lewrite(list); 

- end 

else 

- begin 

assi gn ( 1 i st , ' LST : ' ) ; 
rewrite(list); 

- end; 


LineCount  :=  0; 
writelnd  ist) ; 
w iteln (list , '  ZEROS  '); 
writeln(list); 

writellist,'  '); 

writelndist,'  REAL  IMAGINARY'); 

writeln(list);  LineCount  :=  LineCount  +  6; 


l 

I 


l 


m . . . ■ 


■  -.1 
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Hi  th  G_eq  do 
for  i  :=  1  to  NZeros  do 
— begin 

writelndist, ' 


‘  ,RealPartZero[i ]: 10:3, 


‘ ,  IffiaqF'artZeroli  1: 10:3) ; 


LineCount  :=  LineCount  +  1; 
-end; 


writelndist);  writelndist); 
writelndist,'  POLES'); 
writelndist); 

writedist,'  K  '1; 

writelndist, '  REAL 
writelndist);  LineCount  :=  LineCount  +  7; 
Variablejain  :=  StartSain; 


1MA6INARY' ) ; 


(compute  root  locations  (or  varying  values  of  gain  and  print  them) 


DeltaGain  :=  (EndEain-StartGain)/100;pg:  =0;qg:  =0; 
For  J:-  1  to  100  do 
- Begin 

Variab!e_Gain  :r  Variable_Gain  +  DeltaGain; 
Hith  G_eq  do 
- Beqin 


HoldPoly  :=  DenCoeff; 


If  Neg  Feedback  then 

For  I:=  1  to  NZeros H  do 

HoldPolytll  :=  HoldPolyU]  +(K*Variable_Gain  t 

NumCoefflU) 

else 

For  I:=  1  to  NZeros  el  do 

HoldPolyU]  :=  HoldPolyU]  +(K»Variable_Gain  t 

NumCoeffUl); 


RootFi  nder ( NPol es , Hoi dPol y , PI otReal Pol e , PI ot I magFol e ,  pg ,  qg ) ; 
wri telnd ist,Vari able_Gain:  10:4) ;  LineCount  :=  LineCount  *  1; 
for  i  :=  1  to  (Poles  do 
—begin 

writelndist,'  ',i:2, '  ',F'lotRealPole(i]:10:3, 

',PlotlnagPole[i.l:10:3); 

LineCount  :=  LineCount  +  1; 


-end; 


writelndisUjLineCount  :=  LineCount  +  1; 
if  LineCount  >  50  then 
— begin 

writelndist,  chr(!2)); 

LineCount  :=  0; 

— end; 


-end; 


-end; 


-end; 


-until  ch  in  [  F ' , ' f ' , '8 ' , "q ’ , 'p ' ,  P' ]; 


Enter Graphic; 
swapscreen; 
closed  ist) ; 
-end; 
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{HttHttiHiHiH  END  of  PrintGraphData  Protedure  hhhhhhhhi******1*) 


-Begin  (Root_Locus  Procedure) 


(input  handler  driver  strings) 


=  '5506N0100I-010101 1 
=  ' 5508NO 1 002-0 10103" 
=  1 1512N00503-010101 1 
=  '1513N00504 -010103' 
=  '15141)00505-010101 ' 
=  '1515N00506-010103' 
=  '4517A00207T01Q10I ' 


Clrscr;  TextColor (ivhi te> ; 

Center  I'hi  ROOT  LOCUS  PLOTTING  ROUTINE  hi', 1,2, 80); 

Ter, tCol  or  (Yellow); 

FillChar Is, 100,1205) ;S:=  copy fs, 1 ,B0); 

Nriteln;writelnlS);writeln; 

TextColor (green); 

writelnl'Nhat  STARTING  value  for  variable  gain  do  you  wish?:’); 
writeln; 

wri teln (  What  ENDING  value  for  variable  gain  do  you  wish?:’); 

TextColor (yellow); 
writeln;  writeln(s); 

Center (’«»  VIEWING  COORDINATES  FOR  ROOT  LOCUS  GRAPH  hi' ,1,11,00); 

writeln;  TextColor (green); 

writeln! 'Hlinimun:  ’); 

writeln! 'X-Naxioum:  '); 

writeln! 'Y-lliniwm:  '); 

writeln I'Y-Naxiittum:  '); 

writeln;writeln( 'Positive  or  Negative  Feedback?  (P  or  N) : ') ; 

Input  Handier (  N0107' , Escape);  (prompts  for  NEW  inputs) 
writeln;writeln; 

writelnl’Any  changes  to  these  parameters?  (Y  or  N) : ' ) ; 

Input ( 'A',  ",45, 19, 2, true, FI ,F10); 

If  answer-'Y'  then  Input_HandIeri'C0!07‘, Escape);  (prompts  for  changes) 

Val(filvar[]],StartGain,code);  (converts  input  strings  into) 

Vallfilvar(2],EndGain,code);  (numeric  values) 

Val  If  i  lvarE31 ,  kin,  code); 

Val  (filvar[41,)(max, code); 

Val (filvar(5],Ymin, code); 

Val  (filvar[61,Yniax, cede); 

If  ccpylfilvar(7),l,l)  <)  N'  then  Neg_feedback  :=  false 
else  Neg_feedback  :=  true; 

1N1TGRAFHIC;  (define  values  for  graphics  routine) 

Def ineWi  ndow ( 1 , 0,0, XMaxGI b , YHaxGl b) ; 

Def  ineWorld  (1  ,XMin  ,’r'Hin  ,XMax ,  YHax) ; 

Sel  ec  ttfi  ndow  ( 1 ) ;  Sel  ecttfor  Id  ( 1 ) ; 
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171  !  DrawAxi5(5,-5l0,0,0,0,0,0, false) ; 

172  1 

173  1  (HitiiMHmiKHmtmimmHHimtHmHiiiHiimmi) 

174  !  {h  Begin  computation  of  closed  loop  roots  and  build  plotting  *) 

175  1  (**  arrays.  ♦) 

176  I 

177  ! 

178  1  With  G_eq  do 

179  1  B - Begin  (computes  locations  of  zeros  —  PlotZero(2,x] 

1B0  !  !  and  PlotZerc(3,x)  are  used  because  of  a 

181  !  !  peculiarity  in  plotting  routine  that  requires 

182  !  !  no  less  than  3  points  to  be  plotted!  ) 

183  !  !  For  1:=1  to  NZeros  d- 

',84  !  I  d - Begin 

185  1  !  1  ,iJ  :=  RealPartZeroill; 

186  1  1  1  ■=.  ^.ot  1,2]  :=  InagPar tZerot II; 

1B7  1  !  E - .  •'  / 

18B  !  !  B -  ase  NZeros  of 

189  !  1  !  0  :  ; 

190  !  !  !  B - 1  :  begin 

191  !  1  !  !  PI DtZeroC 2,13: =P1 otZe»  '€1,1); 

192  !  !  1  !  PlotZero[2,21:=PlotZero[l,2)i 

193  1  !  1  !  PlotZeroE3, ll:=PlatZero£l ,11; 

194  1  !  !  !  PI otZeroE3,23:=Pl otZerod ,2J; 

195  1  1  1  !  DrawPolygontPlntZera, 1 ,-3,-3,3,0) ; 

196  1  1  1  !  !DranPolygon  is  graphics  routine  to  plot  an  array  of  points  -  PlotZero) 

197  !  1  1  E - end; 

198  i  1  !  B - - - 2  :  begin 

199  !  1  !  !  PlotZeroC3,13:=PlotZera[l ,11; 

200  !  1  1  1  PlotZero[3,23: =PlotZerotl,2]; 

201  111!  DrawPotygon(PlotZero,l,-3,-3,3,0); 

202  1  !  1  E - end; 

203  :  1  1  else 

204  1  !  1  DrawPolygon (PlotZero, 1, NZeros, -3, 3,0); 

205  !  !  E - end:  (case) 

206  1  E - end;  (with) 

207  1 

208  1 

209  1  (h  Begin  computing  values  of  closed  loop  roots  with  varying  gain  «*) 

210  ! 

211  !  Variable_6ain  :=  StartGainj 

212  !  DeltaGain  :=  (EndGsin-Starf.Gainl/lOO;  (divide  gain  to  plot  100  points) 

213  !  pg:=0;qg:=0;  (initial  values  for  P  and  Q  in  root  finder  procedure) 

214  ! 

215  !  For  •):=  1  to  ICO  do  (calculate  and  plot  100  points  per  graph) 

216  1  B - Begin 

217  !  !  Variable  Gain  :=  Variable  Gain  +  DeltaGain; 

218  !  ! 

219  1  1  With  G_eq  do  (use  G_equivalent  block  and  make  closed  loop  - 

220  !  1  Mi th  unity  feedback) 

221  1  1  B - Begin 

222  1  !  1  HuldPoly  :=  DenCoeff; 

223  1  !  ! 

224  1  !  !  If  Neg  Feedback  then 

225  !  1  I  For  I:=  1  to  NZerosfl  do 

226  1  1  1  HoldPolylll  :=  HoldPolyU)  +IK»Variable_Gain  * 

227  1  1  1  NumCoeffUl) 
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228 

229 

230 

231 

232 

233 

234 

235 
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238 
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241 
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243 
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247 

248 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 


else 


For  !:=  1  to  NZeros  +1  do 

HoldFolytn  :=  HoldPolyCIl  +(K»Variable_6ain  » 

NumCoeff[I3); 


RootFinder  (NPoles, HoldPoIy,PlotRealPole,Plotl»agPole,pg,qg); 


For  I:=l  to  NPoles  do 
- Begin 

PlotPoletl, 11  :=  PlotRealPoletll; 
PlotPoletl ,23  :=  PlotlmagPoletlli 


Kill  plotting  matrix  with  poles) 


-end; 


flxisGlb  :=  true; 

-Case  NPoles  of  (artificially  fill  plotting  array  if  fewer 

than  3  points) 

0  :  ; 

- 1  :  begin 

PlotPol et2, 1 3: =PlotPole£ i , 1 1; 

Fi  otPol eC  2 , 23 : =P1 atPol etl , 23 ; 

PI otPol eC3, 1 3 : =Pl otPolet 1,13; 

PI ot Pol et  3 , 23 : =P1 otPol eC 1,23; 

DrawPolygon (PI otPole, 1,-3, -1,2,0); 
- end; 


-2  :  begin 

PI otPol et3 , 1 3 : =P1 otPol et 1 , 1 1 ; 

PI otPol et  3 , 23 : =P1 otPol eC 1 , 23 ; 
DrawPol ygon (PI otPol e, 1 ,-3,-1 ,2,0) ; 
- end; 


else 


DrawPol  ygon I  PI ot Pol e , 1 , -NPol es , - 1 ,2, 0) ; 


I 


-end; 


-end;  (with) 


E - 


- end;  (root  locus  procedure) 


-Repeat  until  KeyPressed; 


quit  :=  false; 

-repeat 

Graph Jlenui 'Root  Locus', DumpGraph, quit);  (calls  print/title  menu) 

If  DiunpGraph  then  PrintGraphData; 

-until  quit; 


LeaveGraphic; 

-end; 
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Cross-Reference  &  Block  Listing 

Program  time  response; 

{<1  typedef.eys} 

{$1  graphix.sys) 

{$1  kernel. sys) 

(41  windows, sys) 

(II  axis.hgh) 

(41  polygon. hgh) 

{41  ut-inodOl.  inc) 

(41  ut-nod02. inc) 

(41  ut-nod03. inc) 

{41  GrapHenu.inc) 


type 

BigHatrix  -  arrayll.. 30,1. .301  of  real; 
BigVector  =  arrayll. .301  of  real; 


Date:  9/10/B6 
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var 

Psi ,Phi ,A,Atemp  : 

tenp,  inputtype  : 

Offset, Slope, Imax, 
RokSu  m , HaKRowSua , T , 

T1 ,01dHaxRuNSura, 
Plotti»e,Uinput,Phi)(, 
hold, Ymax , Vei n , TP1 ot , 
Amplitude,  Freq,y  : 

Factorial, Plotindex, 
Hincr,code,i, 

jiliM  : 

DuapGraph,GoodNunbers, 
Cl osedLoap , qui t  : 

TRGE0  : 

C,Xald,  tat,  Gamma  : 

GraphArray, lnputarray: 
List  : 


BigHatrix; 

char; 


real; 


integer; 

boolean; 

blocks; 

BigVector; 

plotarray; 

text; 


Procedure  PrintGraphData;  (dumps  time-response  data  to  printer) 

— Begin 

LeaveGraphic; 

Clrscr; 

Center!'***  TURN  Off  PRINTER  AND  ALIGN  PAPER  ***',1,10, B0); 

TextColor (green); 

msgl'press  <P>  to  Print,  <F>  to  list  to  file  »  ,<Q>  to  quit  print', 1,13); 

TextColor (white) ; 

asgl'*  File  option  prints  numbers  to  a  file  named  ”TIHERESP.NUM“  ,1,17); 

msgl’on  the  current  drive.  Browse  the  file  off-line  using  the  DOS  "type1  command. ',1, IS); 


-repeat 

Read(kbd,ch); 

If  (ch  =  'F'l  or  (ch  =  f  ’ )  or  (ch  =  p ')  or  (ch  =  P' )  then 
— begin 

if  (ch  =  'F')  or  (ch  =  f ')  then 
- begin 

assi gn ( 1 i st , ' Ti  meResp . NUH ' ) ; 
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rewitedist); 

- end 

else 

- begin 

assign  (list ,  1ST: '); 
rewrite(list); 

- end; 

witeln (list,  chr (78) ) ;  (skip  over  perforation  in  paper) 

HritelnUist); 

writedist); 

nritelndist, '  TIME  Y  (output) 

HritelnUist); 

Hith  G_eq  do 

for  i  :=  1  to  200  do 

HritelnUist,'  ’  ,Gr  aphArrayli ,  1 1: 10:5, ' 

‘  ,lnputArrayti ,21: 12:4) ; 

- end; 

— until  ch  in  [ "F ’ , ' f ’ , 'Q' , 'q ' ,  P' ,  "p ' ); 

Enter Graphic; 

snapscreen; 

dosedist); 

-end; 


U  (input) ' ) ; 


'  .GraphArrayti , 21:12:4 


Procedure  Hatrix_ttult (Hatrixl,Matrix2:BigHatrix;  var  AnsNtrHatr i x : Bi gMatr i x ; 

Order: integer); 
var 

i,j  :  integer; 


-begin 

for  i:=l  to  order  do 
for  j:=l  to  order  do 

AnsnerMatrixli , jl  :=  0)  (initialize  the  answer  matrix) 

for  i:=  1  to  order  do 
for  j:=  1  to  order  do 
for  L  :=  1  to  order  do 

Answerflatri x ( i , j]  :=  AnswerMatrixti , jl  ♦  Matrixlti ,LJ*Matrix2[L, j]; 


- end; 


Procedure  Scalar  Mult (Hatrixl  :  BigMatrix;  scalar  :  real; 

var  flnsHerflatr i  x :  Bi  qHatr  i  x ;  Or der :  i  nteger ) ; 

var  i , j  :  integer; 

— begin 

for  i:=  1  to  order  do 
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114  I  for  j:=l  to  order  do 

115  !  AnswerHatrixCi , j]:=  AnswerHatrixti ,jl  »  scalar; 

116  E - end; 


117 

118 

119 

120 

121  Procedure  MatriK_Vector_Hult fHatrix  1  :BigHatrix;  Vector  :  BigVector; 

122  var  ftnswerVector : Bi gVector;Ch-der: integer) ; 

123 

124  var  i , j  :  integer; 

125 

126  B - begin 

127  1 

128  !  for  i:-  1  to  order  do 

129  !  B - begin 

130  1  !  hold:1  0; 

131  !  !  for  j:=  1  to  order  do 

132  !  1  hold:=  hold  *  Matrixlti, j]*V'ectort j]; 

133  i  1  AnswerVectort i 3 : =  hold; 

134  1  E - end;  • 

135  E - end; 


136 

137 
13C 

139 

140 


141  B - Begin 

142  1  initgraphicjleavegraphic; 

143  1 

144  1  {hhhhhmhi  Prompt  user  for  desired  input/time  liait  hhhwhiihhii) 

145  1 

146  1 

147  !  drscr; 

148  !  Tex tCol or (white): 

149  1  center! '*«  Tiae  Response  Plotting  Routine  »«',!, 2, ,80); 

150  I  fill  char ( s , 1 00 , #205) ;  5:=  copy  Is , 1 ,80) ; 

151  !  writeln;  writelnls);  writeln; 

152  !  TextColor (yellow) ; 

153  ! 

154  1  asgl'What  is  the  input  to  your  systen?  STEP  !5)  ’,1,6); 

155  !  asgC  RfiHP  IR)  ’,1,7); 

156  1  asgC  SIN  HAVE  IH)  ’,1,8); 

157  1  asg!'  IMPULSE  II)  ’,1,9); 

158  1 

159  I  B - repeat 

160  1  !  Inputl'A  ‘ , 'S' ,50,6,2,true,Fl  ,F10); 

161  !  !  leap  :=  copylanswer, 1,1); 

162  !  I  if  not  (temp  in  [  S" ,  R’ ,  H' , ' I  ’ 1)  then  beep  1350, 150); 

163  1  E - until  temp  in  ['S','R',T, Tl; 

164  1  InputType  :=  teap; 

165  1 

166  1  nsgl'Input  amplitude?  ’,1,11); 

167  1  Input  CN' ,  T  ,20,l!,2,true,Fl,F10); 

168  1  val (answer, Amplitude, code); 

169  1 

170  !  B - 


— case  InputType  of 


r\ 


AV:tovav;'-’.‘.'.'.\v. 
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— 'R's  begin 

msqCDC  offset?  '  ,1,13); 

InputCN',  '0',  23,13,2, true, F1,FI0); 
val  (answer, Offset, code); 
fflsq 1 "Slope?  ',  25,13); 

InputCN',  T,  23, 13, 3,  true,  F1,F10); 
val (answer, slope, code); 

- end; 


- 'If:  begin 

msq ( 'Frequency?  (rad/sec! ’ ,1,13); 
Input  CN1,  ",23,13, 5,  true,  FI,  F10); 
val  (answer, Freq, code); 

- end; 

- end; 


ssgCOpen  (0)  or  Closed  (C)  Loop  simulation?  ',1,16); 
— repeat 

Input ( 'ft', 'C', 45, 16, 2, true, FI, FIO); 

temp  :=  copy!answer,l,l); 

if  not  (temp  in  CO', 'CD  then  beep (350, 150); 

— until  temp  in  ['O', 'C'l: 

if  temp  -  'C  then  ClosedLoop:=  true 
else  ClosedLoop:=  false; 


asgl'How  many  seconds  of  simulation  would  you  like  to  see?  (99  max) ',1,20); 
- repeat 

InputCN',  ",65,20, 5,  true,  FI,  F10); 

val  (answer, Tuiax, code); 

if  Tuiax  >  99  then  beep (350, 150); 

- until  Traax  <=  99; 


drscr; 

TextColorlHhitel; 

center ('»»♦  Calculating  the  Time  Response  —  Please  wait  «t', 1,10, BO); 
TextColor (yellow); 


with  G_eq  do 
for  i:1  1  to  NPoles  do 

DenCoeff(i)  :=  DenCoeffti)/  DenCoeffCNPoIes+ll;  (normalize  polynomial) 


{mmHHHHmmHH  Hake  Closed  Loop  B  equivalent  whhhhhhhhh) 


if  ClosedLoop  then 

- begin 

with  G_eq  do 
- begin 


(compute  cbsed-loop  (unity  feedback)  G  equivalent) 
(called  TRREQ  —  which  is  also  a  blocks  type  record) 


TRSEQ.K  :=  K;  (dosed  loop  K  same  as  open  loop  K) 

TRGEB.NZERDS:=NZerosj  (as  are  the  zeros  of  the  function  ) 


'id 
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E - 


for  i:=l  to  maxorder  do  TR6EQ. DenCoef f [ i ]  :=  0.0;  (initialize) 


for  i:=l  to  NZeros  +  1  do 
- begin 

TREEO. DenCoef f  t i  1  :=  NuciCoeffCi)  » K;  (C.L.  denominator  equals  the  ) 

TRGEQ.NumCoef f £i 3  :=  NunCoeHlil;  (sun  of  open  loop  denominator) 

- end;  (and  K  times  O.L.  numerator  ) 

for  i :=1  to  NPoles  +  1  do  TRGEB. DenCoef fti)  :=  TREEQ. DenCoef f t i  J  + 

DenCoef f til; 


if  NPoles  >  NZeros  then  TRGEB. NPOLES: rNPoles  (NPoles  should  always  be) 
else  TRGEB. ffOLES:=NZeros;  (greater,  but  to  be  safe) 

- end;  (with) 

- end 

else 

TRGEB  :=  G_eq; 


{mmHHHMHHH  Fill  the  A-matrix  »hh»h*hh»»hhhhh*i*) 


with  TRGEB  do 
—begin 


(  fi-»atrix  form: 


(  10  0  10 


(  i  0  0  0  0 
(  !  a  b  c  d 


B - 


(where  a,b,  ...  y,z  are  neg.  coeff  of  denou  poly) 


for  i:=  1  to  NPoles-l  do  (fill  all  but  the  bottom  row) 
for  j:=l  to  NPoles  do 

if  j  =  i+1  then  Ati ,jl:=  1 
else  Ati , jl:=  0; 
for  j:=  1  to  NPoles  do 

A(NPoles,j3  -DenCoef ft j3; 

{HttHiHimiHHHiim  Fill  the  C  matrix  HiHHiHiiittHHiHimm) 

for  i :=  1  to  NPoles  do 

- begin 

if  i  >  NZeros  +  1  then  Cti 3:=  0.0 

else  Cti  J:=  ttaCoeffliUK; 

if  NZeros  =  NPoles  then  Cti )  :=  Cti)  ♦  K  *  NumCoeff[NZeros+l]»AlNPoles,i]; 
- end; 

(HHHimHwm)  Select  a  sampling  time  interval  T  imuiuHtmiui) 


Nincr  :=  1000; 

T  :=  (Tmax/Nincr); 
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(HHiHHittHiHHi  Initialize  Psi  6  Atemp  HHHHHnmnmHiHHHni) 


Atemp  :=  A; 

Psi  :=  A;  (this  will  initialize  psi  tD  the  value) 

ScaIar_Mult (Psi ,T/2,Psi ,NPoles) ;  {of  the  infinite  series  after  the  first) 
for  i :=  1  to  NPoles  do  (two  terns  1  +  A*T  /  2!) 

Psi ti ,i ]:=Psi  Ci ,i J  +  1.0; 


{HiHimm  Compute  more  teres  of  the  series  k  truncate  mmmmum) 


Factorial  :=  2;  T!  :=  T;  01dmaxrowsum:=  0,0; 


—repeat 
- begin 

Factorial  :=  Factorial  *  (i +1) ;  Tl  :=  Tl  *  T; 
t1atrix_Hult(A,ATe(np1Phi ,NPoles);  {phi  is  used  at  temp) 

ATemp:=  Phi;  {holding  matrix  to  ) 

Scalar  Hult (Phi , (Tl/Factorial) , Phi, NPoles);  {large  array  ) 

for  j:=l  to  Npoles  do 
far  m:=  1  to  Npoles  do 

Psit  j,m]:=Psi[j,fli]  +  Ftii  C  j  ,n); 


Haxrowsum:=  0.0;  {computes  maxroHSum  as  measure  of  change  in) 
for  j:=  1  to  Npoles  do  (last  series  term  to  be  added.) 

— begin 

roHsum:=  0.0; 

for  m:=I  to  NPoles  do 

rowsum:1  rowsum  ♦  Psitj,*]; 
if  rowsum  )  maxrowsum  then  maxrowsum  :=  rowsum; 

— end; 

if  labs  (maxrowsum  -  oldmaxrowsual/maxrowsu*)  <  0.001 

then  finished  :=  false 
{quit  when  .^change)  else  finished  :=  true; 


oldmaxrowsum  :=  maxrowsum; 

- end; 

— until  Finished; 


Scalar_Mul  t  (Psi  ,T,Fsi  ,NF'oles); 


{tmmmttmHm  Calculate  Phi  matrix 


Matrix_Hul t (A,Psi  ,Phi ,NPoles) ; 
for  i  :=  1  to  NPoles  do 

Fhi [i , i ]  :=  Fhiti,i)  +  1.0; 


{HttHHHtHtmmH  Calculate  Garina  vector  HHimHiiiimHiiimm) 


for  i:1  1  to  NPoles  do 

Gammati]  :=  PsiCi ,NFoles];  {single  input  system  with  B  vector:  ) 
{  B-  [  0  0  0  0  ...  0  !)  (transpose)) 
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342  1  1 

343  1  !  (hhihhhhi  Compute  the  next  state  of  *  given  *10)  =0  hiihhuiiih) 

344  !  1 

345  !  ! 

346  1  !  Plottime  :-  0.0;  Plotindex  :=  1;  (initialize) 

347  1  1  for  i:=  1  to  NPoles  do  XoIdCi 3:=  0.0;  (init.  prev.  state) 

34B  1  !  Ymax  :=  0.0;  Ymin  :=  0.0; 

34?  1  ! 

350  1  !  TextColor (white); 

351  !  !  gotoxy(15,10); 

352  !  I  write!'***  Calculating  Points  —  Please  wait  »**');  (countdown) 

353  I  1  TextCglor(yellow); 

354  !  ! 

355  1  1 

356  i  !  for  N  :=  1  to  Nincr  do  (begin  calculating  next  state  and  y) 

357  I  !  B - begin 

358  !  1  !  GoToXY (32, 10) ;  write(ffincr-N:5);  (display  downcounter) 

35?  !  !  1 

360  !  !.  !  (compute  input  at  ti«e  Plottime) 

361  1  I  !  B - case  Inputtype  of 

362  !  1  !  I  'S'  :  Uinput-  :=  Amplitude; 

363  1  !  1  !  'R‘  :  Uinput  :=  Plottime  *  slope  *  offset; 

364  !  !  !  I  T  :  if  plottime  =  0  then  Uinput  :=  amplitude 

365  1  !  I  1  else  Uinput  :=  0.0; 

366  1  1  1  1  'H'  :  Uinput  :=  Amplitude  *  sinlfreg  *  plottime); 

367  i  !  !  E - end; 

36B  !  I  ! 

36?  !  i  I 

370  I  1  I  Matrix_Vector_Mult (Flii ,Xold,XNext,Npoles);  (compute  new  states) 

371  !  !  I  •  for  i:=  1  to  Npoles  do 

372  !!  !  Xnext[i):=  Xnextli]  +  GammaCi 3*Uinput; 

373  !!  ! 

374  !!  ! 

375  I  !  I  (mmmiHium  Compute  the  value  for  the  output  y  »»**»**»*»*»»***»**») 

376  1  !  ! 

377  !!  !  y:=  0.0; 

37B  I  1  !  for  i:=  1  to  (Poles  do 

37?  1  1  !  if  abs(y)  <  1.0E07  then  y:*  y  ♦  CtiJ  *  Xnextli) 

3B0  !  I  !  else  y:=  1.0E07;  (max  y  limit) 

3B1  !  !  ! 

3B2  !  1  I  if  NZeros  =  NPoles  then  y  :=  y  *  K  »  NumCoef f tNZeros+1 3  *  Uinput; 

383  !!  !  if  y  >  Ymax  then  Ymax:=  y; 

3B4  111  if  y  <  Ymin  then  Ymin:=  y; 

385  !  1  ! 

386  I  1  I  if  N  mod  5  =  0  then  (plot  every  5th  point) 

387  !  !  !  B - begin 

3B8  I  I  !  I  BraphArray(Plotindex,l)  :=  Plottime; 

38?  1  1  I  1  GraphArray(F'lotindex,2)  :=  y; 

3?0  I  1  1  1  InputflrraylF'lotindex ,1 }  :=  Plottime; 

3?1  !  I  1  I  lnputArray(Plotindex,2J  :=  Uinput; 

3?2  1111  Plotindex  :=  Plotindex  *  1; 

3?3  1  !  1  E - end; 

3?4  !  1  ! 

3?5  I  !  !  Plottime  :=  Plottime  +  T;  Hold  :=  Xnext; 

3?6  1  !  E - end; 

3?7  1  !  Ymax  :=  1.1  *  Ymax; 

378  1  I 


File:  TIMEKESP.PAS 


Cross-Reference  i  Block  Listing 


Date:  9/10/86 


1  <ft'0 


399  1 

400  ! 

401  ! 

402  ! 

403  1 

404  1 

405  1 

406  ! 

407  ! 

408  1 

409  1 

410  1 

411  ! 

412  1 

413  ! 

414  1 

415  1 

416  1 

417  ! 

418  1 

419  ! 

420  ! 

421  ! 

422  E~ 

423 

424 


Ini tgraphic; 

DetineWindonU  ,0,0,  XMax  G1  b ,  YMaxGl  b) : 

Def  ineWorldll  ,0,Ymax,tmax,Y(»in)  jSelectHorld(l) ; 
SelectWindotdl);  DranBorder; 

DrawAxis(5, -5, 0,0,0, 0,0,0, false); 
DrawPolyqon(GrephArray,i,-(Plotindex-l), 0,0,0); 
DraHAxis(5,-5,0,0,0,0,0,0,f alse) ; 
SetLineStylell);  (dashed  line  for  input  signal) 
Dr awPolygon (InpatArray,l ,-(P!otindex-l) , 0,0,0) j 
GetLineStyle(O); 


-repeat  until  keypressed; 
quit  :=  false; 

—repeat 

Graph  J1enurTiite-Response',DunpGraph, quit); 
If  DunpGraph  then  PrintGraphData; 

— until  quit; 
leaveGraphic; 


(calls  print/title  menu) 


assignfcadfile, 'Cad. cots'); 
execute (cadfile); 


•".V-'--  -r 
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38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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Program  TwoParameterRoatLocus; 
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Page 


2 

T 

{41  grapdef  .sys) 

{graphics  type  declaration 

0 

4 

const 

5 

6 

7 

maxorder  =  20; 

{maximum  order  for  twopara 

type 

8 

strBO 

stringCBO); 

9 

stringarray  = 

arrayt 1. .20]  of  strBO; 

10 

11 

PolyArray  : 

:  arrayt 1.. 201  of  real; 

12 

var 

13 

answer 

str80j 

14 

polish 

str80; 

15 

eval 

real; 

16 

InfixArray 

arraytl..201  of  strBO; 

17 

DeltaStep, 

18 

Increm, 

19 

a,b  : 

:  real; 

20 

i,j,k,order  : 

:  integer; 

21 

xmax ,xnin, 

22 

y»ax,ynin, 

23 

an  ax, ami n, 

24 

bmax ,bmin 

:  real; 

25 

DuitpGraph, 

26 

Quit, Change, 

27 

StepA 

:  boolean; 

28 

Eval Array, 

29 

Realfart, 

30 

ImagPart 

:  PoiyArray; 

31 

PlotPole 

:  PlotArray; 

32 

symbol 

:  integer; 

33 

hold 

:  stringtlOJ; 

34 

Line 

:  arrayCl. .5]  of  stringU4); 

35 

twochars 

:  stringt2); 

36 

fivechars 

:  strinq[51; 

37 

CadFile 

:  file; 

{41  qraphix.sys) 
{4!  kernel. sys) 
!41  windows. sys) 
(41  polygon. hgh) 
{41  axis. hgh) 

(41  i n-fflooi)0.  i rtc) 
{41  ut-mdOl.inc) 
(41  ut-mcd02.inc) 
{41  tp-ocd03.inc) 
{41  roots. inc) 


{slightly  modified  version  of  at-modOO. i nc) 


(customized  version  of  ut-mod03. inc) 


Procedure  Infix_to_Polish(Answer:strBO;  var  RF'N  :  str80);  forward; 

{forward  declaration  of  proc  to  convert  infix  notation  to  reverse  Polish) 

Procedure  Coirpute_Folish(Folish:strBO;atb:real;  var  eva!uation:real);  forward; 
{forward  declaration  of  the  proc  to  evaluate  the  reverse  Polish  expression) 
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57 

50 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 


78 

79 


81 

82 

83 

84 

85 

86 
87 


B9  1 

90  1 

91  1 

92  I 

93  ! 

94  1 

95  i 

96  ! 

97  1 

98  ! 

99  ! 

100  1 
101  1 
102  1 

103  E- 

104 

105 

106  B 

107 

108 

109 

110 
111 
112 
113 


ill  datadump.inc) 
($1  grapnenu.inc) 


program  file  tD  print  numbers  used  to  generate  graph) 
[graph  »enu  options  routine) 


{»*  The  procedure  lnfix_to_Polish  converts  an  algebraic  expression  (infix)  »») 
(»  to  reverse  Polish  notation.  This  conversion  aliens  one-pass  parsing  h) 
{♦»  and  evaluation  of  the  expression  which  would  otherwise  not  be  possible. **) 


Procedure  Infix_to_Polish: 
var 


73 

Stack 

:  Arraytl.,50)  of  char 

74 

ToP|P,l 

:  Integer; 

75 

ch 

:  char; 

76 

Firstchar, 

77 

Prev  Digit 

:  Boolean; 

(»*  The  function  Priority  sets  the  heirarchy  for  operations  »*) 
{»»  by  setting  the  priority  of  an  operator  to  be  placed  on  a  »t) 
{«  stack.  The  function  is  used  by  and  internal  to  the  proc  »») 
(»»  Inf ix  to  Polish.  ») 

{HHHtHHKHHHIHfttHtftHHIHHIHHHHHHHflliHHtH} 


Function  Priority (Ch:char):  Integer; 
—Begin 


•Case  ch  of 


..V 

..'B' 

..'9' 


Priority:11  4; 
Priority:1  3; 
Priority:1  3; 
Friority:=  2; 
Priority:1  2; 
Priori ty:=  1; 
Priori ty:=  1; 
Priority:*  1; 
Priority:-  1; 
Priority:*  0; 
Priority:*  0; 
Priority:1  0; 


end:  (case) 


-end;  {function) 


(initialization) 


-begin  {procedure  lnfix_to_Folish) 

RPN  :=  ";  (output  string) 

Top  :=  0;  (operator  stack  pointer) 

FirstChar  :=  True;  (FirstChar  helps  to  find  unary  ninus  signs) 
Prev_Digit  :=  False;  (Prev  Diqi t  keeps  spaces  out  of  numeric  constants) 


for  i 1  to  Length (Answer)  do 
- beuin 
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114  I  I 

115  :  : 

116  !  1 

117  1  1 

118  1  1 

119  i  i  e- 

120  1  1  1 
121  1  1  1 
122  1  1  1 

123  1  1  ! 

124  1  1  1 

125  !  !  E- 

126  1  1 

127  1  1  B- 

128  1  1  1 

129  1  1  1 

130  i  :  i 

131  1  1  ! 

132  !  1  ! 

133  1  1  1 

134  1  1  1 

135  1  1  1 

136  1  1  1 

137  !  !  E- 
I3B  1  I 

139  1  1 

140  1  !  B- 

141  :  !  : 

142  1.  1  1 

143  1  1  1 
.144  1  1  E- 

145  1  1 

146  1  !  B- 

147  !!  1 

148  1  1  1 

149  !  1  1 

150  1  !  1 

151  1  1  ! 

152  1  1  1 

153  1  1  1 

154  1  1  E 

155  !  E— 

156  1 

157  1  B— 

158  1  1 

159  1  1 

160  1  E— 

161  1 
162  ! 

163  E - 

164 

165 

166 
167 
16B 

169 

170 
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ch  :=  copy(Answer,i ,1) ;  (scan  the  infix  expression  char  by  char) 

P:=  Priority(ch); 

if  Firstchar  and  (Ch  =  '-'I  then  P:=  1;  (unary  (sinus  sign) 

if  P  =  I  then  (if  the  character  is  part  of  a  constant,  or  variable) 
- begin 

if  Prevjiigit  then  (suppresses  blank  spaces  inside  numeric) 

RPM  :=  concat(RFN,ch)  (constants) 
else 

RPN  :=  concatlRPN, ’  ' ,ch); 
firstchar  :=  False;  Frev_Digit  :=  True; 

- end; 

if  P  >  1  then  (if  an  operator) 

- begin 

(checks  priority  of  operator  and  arranges  it  on  the  stack) 
while  (Top  >  0)  and  (Pr i ori ty (StackE top] )  >=  P)  do 
- begin 

RPN  :=  concatlRPN, '  ' ,Stack(Top]) ;  (if  smaller  priority,  then) 
Top  :=  Top  -  1;  (operator  placed  on  stack) 

- end;  (otherwise  operator  on  top  is  placed  ) 

Top  :=  Top  +  1;  (in  output  string  and  then  current  ) 

StackETop)  :=  ch;  (operator  is  placed  on  stack) 

Firstchar  :=  True;  Prev  Digit  :=  False; 

- end; 


if  ch  *  '('  then  (if  opening  paren  then  keeps  inside  stuff  together) 

- begin 

Top  :=  Top  *  1; 

5tack(Top)  :- 

Firstchar  :=  True;  Prevjigit  :=  False; 

- end; 

if  ch  =  ')'  then  (dosing  paren  causes  inside  stuff  to  be  put  on  ) 

- begin  (output  string  together) 

while  StackCTopl  0  T  do 

- begin 

RPN  :=  concatlRPN,’  ’,Stack[Top]); 

Top  :=  Top  -  1; 

- end; 

Top  :=  Top  -  1;  (skip  over  opening  paren) 

FirstChar  :=  False;  FYev  Digit  :=  False; 

- end; 

—end; 

while  Top  >  0  do  (put  remaining  operators  on  output  string) 

- begin 

RPN  :=  concatlRPN,'  ’,5tack[Topl); 

Top  :=  Top  -  1; 

- end; 


- end;  (procedure  infix_to_polish) 


-Vw">  1  V.i.CfATl.Vj'.  V'r  it 
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171 

172 

173 

174 

175 

176 

177 
I7B 
17? 


131 

182 

183 

184 

185 

186 
187 


190 

191 

192 

193 


194  E~ 

195 

196 


197  B™ 

198  ! 


199 

200 
201 
202 

203 

204 


205  E- 

206 

207 

208 

209 

210  B 

211 
212 

213 

214 

215 

216 
217 
21B 
21? 

220 

221 

222 

223 

224 

225 

226 
227 


{* 

{» 

{» 

{» 


Procedure  Compute_Polish  uses  the  string  generated  in  Procedure 
Inf ix_ta_Pol ish  to  evaluate  the  numeric  expression.  The  process 
uses  a  one-pass  algorithm  to  analyze  the  expression  and  perform 
the  appropriate  stack  or  arithmetic  operations. 


♦) 

») 

i) 

») 


Procedure  Corepute_Polish; 


var 


i,code 


NumStack 
Top 
ch 

temp 
Valuel,Value2, 
Valueo  :  real; 


integer; 

array! I.. 401  of  real; 
integer;  (NumStack  pointer) 
char; 

string(201; 


Procedure  FUSH(Number:Real);  (push  a  number  onto  numeric  stack) 
— begin 

Top  :=  Top  +  1; 

NumStack(Top)  :=  Number; 


-end; 


Procedure  POPIvar  Number:Real);(pop  a  number  off  the  numeric  stack) 
— begin 

Number:3  NurStack(Top); 

Top  :=  Top  -1; 


-end; 


function  Expon(Y,X:real):real;  (computes  Y  raised  to  X  power) 
— Begin 

Expon  :=  expl  X  *  (In (Y) ) ); 

— end; 


—begin  (procedure  Compute_Polish) 

temp  :=  ' ';Top  :=  0;  (initialize! 

for  i:=  1  to  Length (polish)  do  (do  one  char  at  a  time) 

- begin 

ch  :=  copy(polish,i,l);  (get  a  character) 

- case  ch  of  (and  evaluate  it) 

'0’..'9‘  :  temp  :=  concat (temp,ch) ;  (real  constant) 

:  temp  :=  concat (temp,ch) ; 


:  begin 

if  copy!polish,i+l,l!  <>  '  '  then  (unary  minus) 
temp  concat (temp, ch) 
else 

- begin  (minus  operator) 

FOP(Valuel); 

F'0PIValue2>; 

Values  :=  Value2  -  Valuel; 

FLISH  IValueS); 
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- end; 

- end; 

'a'  :  PUSH(a);  {Put  variables  a  and  b  onto  numeric  stack) 

’A'  :  PUSH(a); 

V  :  FUSHIb); 

T  :  PUSHIb); 

- :  Begin  (add  two  numbers) 

ft)P (Value!);  P0P(Value2); 

Value3  :=  Value2  +  Valuel; 

PUSH(Vaiue3); 

- end; 

- t  :  Begin  (multiply  two  numbers) 

PDP(Valuel);  P0P(Value2); 

Value3  :=  Value2  *  Valuel; 

FUSH(ValueJ); 

- end; 

- T  :  Begin  'divide  two  numbers) 

PIP  (Valuel);  P0P(Value2); 

Value3  :=  Value2  /  Valuel; 

PUSH(Value3); 

- end; 

— - :  Begin  (exponentiation) 

P(F (Valuel);  PDP(Value2); 

Value3  :=  Expon(Value2, Valuel); 

PUSH(Value3); 

- —end; 

- 1  1  ;  Begin  (space  is  divider  between  numbers/operators) 

il  temp  0  "  then 

val (temp, Valuel, code); 

Push(Valuel); 

temp 

- end; 

- end; 

- end;  (case) 

— end;  (lor) 

if  temp  <>  "  then  (lone  constant  in  expression) 

- begin 

val  (temp, Valuel, code); 

FUSHIValuel); 

- end; 

FDP(Valuel);  (when  finished  answer  will  be  top  number  on  stack) 
Evaluation  :=  Valuel; 

■end;  (procedure) 
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2B5  {**  Coeffjnput  allows  the  user  to  input  the  algebraic  expression  which  **) 

286  {**  describes  the  closed  loop  characteristic  equation  for  the  systen  with  **) 

287  (**  up  to  two  undetermined  parameters  called  ft  and  B.  The  routine  uses  h) 

288  (**  standard  algebraic,  or  infix,  notation  with  parenthesis  allowed.  **) 

28?  (»*  Operators  can  include  /,  and  *  (exponentiation).  The  unary  **) 

290  (**  minus  sign  can  be  included  in  the  expression.  »*) 

2?1  {HIHHfflHHHJHHHHMHHmHIHHHHHHHHHHHHHIHHHHmH) 

292 

293  Procedure  Coeffjnput; 

294  var 

295  code,i,linecount  :  integer; 

296  validated  :  boolean; 

297 

298 

299  B - begin 

300  I  Clrscr;  TextColor (white); 

301  !  Center!'***  Two  Parameter  Root  Locus  ***’,1,2,80); 

302  !  Fillcharls, 100,1205);  S:=  copy <s, 1 ,00) ' TextColor (yel low) ; 

303  1  wri teln;writeln  <s) iwriteln; 

304  I  msgCHhat  is  the  highest  order  coefficient  in  the  Characteristic  Equation7’, 1,8); 

305  !  nsgC  (20  maximum) ’,1,9); 

306  !  input  IT ,  ’  ’  ,78,8, 2, false, FI  ,F10) ; 

307  !  val (answer, Order, code); 

308  I 

309  I  ’  clrscr; 

310  I  Center!’***  Two  Fararaeter  Root  Locus  -  Coefficient  Input  ***‘,1,1, B0); 

311  I  writeln;Nriteln(s); 

312  I 

313  1  Pill:*  ’0805fl07201T010101 '; 

314  I  P(23:=  ’0807A07202TOI0102’ ; 

315  I  F[33:=  ’0809fi07203T010103’; 

316  I  P143:=  •0811fi07204T010104’; 

317  I  P(51:=  ’0813A07205T010105 ’; 

31B  I  Pt63:=  ’0815ft07206T010106’; 

31?  1  PI73:=  ’ 081 7A07206T0 10107’; 

320  I  P(B3:=  ’0819fl07207T010108’; 

321  !  PC93:=  ’0321fl07208T010109’; 

322  !  Pt 103:=  ’0823A07210T0I0110’; 

323  I  P[J13:=  '0805A0721 1T0101 11'; 

324  I  PU23:=  ’0807fi07212T010112’; 

325  !  Pt 133:=  ’0809fl07213T010113'; 

326  !  PC143:=  ’081 1A07214T0101 14 ’; 

327  !  P[ 153:=  ’0813A07215T0101 15' ; 

328  I  Ptl6):=  0815A07216T010U6’; 

329  I  Pf 173:=  0817A07216T010117'; 

330  I  P(183:=  0819A07217T0101 18 ’ ; 

331  I  P[191:=  ’082IA07218T010119’; 

332  1  PE203:=  0823A07220T010120 ’ ; 

333  ! 

334  1 

335  I  for  i:=  1  to  order  *  1  do  (writes  prompts  for  coefficient  input) 

336  1  B - begin 

337  1  !  writelnC  '  ,crder+l-i); 

338  I  (  witelnCs  -  ’); 

33?  1  E - end; 

340  I  str (order+1: 2, twachars) ; 

341  I  if  order+1  <  10  then  (computes  invoking  string  for  input Jiandler) 
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342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 
353 

359 

360 

361  E- 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378  B- 

379 
3B0 

381 

382 

383 

384 

385 

386 

387 


389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


-beg;n 

deleteltwochars, 1 , 1) ; 
insert  CO'  ,twochars,  I) ; 
-end; 


if  order  +  1  >10  then  f ivechars  :=  'NOIIQ' 

else  (ivechars  i-  CDncat ( "N01 ’ , tHochars) ; 
Input  handler (f ivechars, escape!;  (call  the  input Jiandler) 


if  order  *  1  >  10  then  (if  greater  than  10th  order,  write  last  10  on  next  page) 
- begin 

fivechars  :=  concat('Nir,twochars); 
drscr; 

Center!'***  Two  Parameter  Root  Locus  -  Coefficient  Input  ***',1,1, B0); 
writelniwritelnls);  writeln; 

Input  Jiandler  If  ivechars,  escape); 

- end; 

for  i  :=  )  to  order  +  1  da 

InfixArraytorder+2-il  :=  Filvartil; 

-end;  {procedure  Coeffjnput) 


{**************************************************  *****************  **********) 

{*»  Select_Paraseter_Range  prompts  the  user  for  values  of  A  and  B  to  be  **) 
{**  used  for  plotting  the  root  locus.  One  parameter  is  stepped  through  »») 
{**  five  equal  increments  of  range  and  the  other  is  plotted  ■sraoathly"  **) 

{»*  by  computing  and  plotting  fifty  values.  **) 

{*}*i*****}***}i******itt*****iitt*ii*Hi(*<i*tt(i*t*(({)tt«t*t**t*t(t»*»(*»*j 


Procedure  Belect_Parameter_Range; 
var 

code  :  integer; 


-begin 

Clrscr;  TextColor (white); 

Center!'***  Parameter  Selection  Page  ***',1,2,80); 

Fillcharls, 100, 1205);  S:=  copy (s,l ,80) :TextColor (/bIIom) ; 
witeln;writeln!s);writeln; 

TextColor Igreen);  {print  message  explaining  input  for  2param  prod 


writelnCVou  will  be  varying  the  two  parameters,  A  and  B,  through  a  range'); 
writeln! 'of  values  you  select.  You  will  also  choose  to  STEP  either  A  or  B'); 
writelnCwhich  means  that  the  chosen  parameter ' 's  range  will  be  divided  into') 
writelnl'five  (5)  equal  increments  for  plotting  while  the  other  parameter  '); 
writeln! 'varies  smoothly  through  its  range.'); 
writeln;writeln(s);writeln;writeln; 


Fill 
PC21 
FT31 
Ft  41 
P151 


;=  '1516N01001-010103'; 
=  '  15I7N01002-*)10101  *; 
=  '15191101003-010103': 
i=  1520H01004HJI0101; 
:=  1522A00205T010101'; 


TextColor (Yellow); 


{prompt  for  user  inputs  of  parameter  values) 
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399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 


!  writelnl 'A-«iniraus: 

I  writeln! 'A-maximum:  '1; 

!  writeln; 

!  writeln! ’B-ninimjm:  '): 

1  writeln! 'B-maximum:  '); 

1  Hriteln;witelnCStep  A  or  B?  : '); 

1  Input _Handler!'N0!05', Escape);  (prompts  For  NEW  inputs) 

!  B - repeat 

1  !  ch  :=  copy (4 i 1 varC053 ,1,1); 

!  1  if  not  (ch  in  ['A'/B'D  then 

1  1  lnputjfandler! '0)505' , Escape); 

I  £ - unti l  ch  in  CA',  'B'l; 

1  if  ch  =  'A'  then  stepA  :=  true 

1  else  stepA  :=  false; 

1  val  (f  ilvart01],a(nin,cDde) ; 

!  val (f  il  varC023 ,amax ,code) ; 

!  val !filvar(03],hnin, code); 

!  val  (f  i  lvart04]  ,bsiax ,  code); 

E - end; 


{«*H**tet»m*t«mmtm*mHfHm«HH«H*ttt*ttttim****tti***»*<**t*t} 

{*»  Select  jfindowjjize  prompts  the  user  for  the  naximua  and  iiininum  values  **) 
(**  of  the  plot  in  the  x  and  y  directions.  **) 

Procedure  5elect_Window_Size; 
var 

code  :  integer; 

B - begin 

!  Clrscr;  TextColor (white); 

'  Center!'***  Window  Size  Selection  Page  ***’,1,2,80); 

I  Fillcharfs,  100,4205);  S:=  copy (s, 1 ,00) ; TextColor (yellow) ; 

I  writeln;writeln(s);writeln;writeln;writeln; 

I 

i 

I  F(63:=  '1508NOI006-010103'; 

!  PE71:=  ’1510N01007-010101'; 

I  P(81:=  '1513N0100B-010103'; 

I  Pt91:=  ’ 1515N01009-010101 ' ; 

» 

I 

I  writeln! 'X-minimuin:  ');  (prompts  for  window  size; 

!  writeln; 

I  writeln! 'X-naximim:  ’); 

I  writeln; 

1  writeln; 

!  writeln! 'Y-miniraum;  '); 

I  writeln; 

I  writeln! 'Y-max ilium:  '); 

I 

t 

!  If  change  then  Input_Handler!’C0609', Escape!  (prompts  for  CHANGE  inputs) 
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else  Input  Handler CM0609', Escape);  (prompts  for  HEN  inputs) 


val (f i 1 varCOfel ,xfflin,code) : 
val  (filvart071,xmax  ,cc-de); 
val ff il var [OBI ,ymin,codB) ; 
val  (f  i  I  vart091  ,ysax  ,cocIe)  ; 
change  :=  true; 


{immimHimHiitimiimmimmifiiHfHHimmmiimimimH) 
(**  Hake_Legend  draws  a  box  on  the  screen  and  puts  the  graph  legend  inside  »*) 

(h  to  alert  the  user  which  values  of  a  and  b  are  plotted  using  which  *») 

{**  symbol .  The  box  may  be  »oved  with  cursor  keys  sare  as  title  box.  h) 

{lifflHHtHIHffHHHtHHHHfffHHHMfHftHHfHftHHHitHHfHHfff} 


Procedure  Make_Legend; 


linel,  line2,  lined,  1 ine4,  line5,  line6  :  string[20); 


- begin 

copyscreen; 

SetLineStyle(O); 

DefineHindow(2, 11,20,30,80); 
DefineNorld(2, 0,30, 28,0); 
SelectWorld(2);  SelectWindow(2); 
DefineHeader  (2,  legend'); 
SetBackground (0); 

SetHeaderOn;  DrawBorder ; 

Linel  :=  concat ( ’  1 ,1  inetl ]) ; 

Lined  :=  concat!'  xxx  ',line[2)); 

Lined  :3  concat I'  hi  ’,line(d)); 

Line4  :=  concat ( ’  000  ',iineC43); 

Line5  :=  concat I'  YYY  ',line[5)); 


(make  a  window) 


(legend  lines) 


Linefc  :=  '  Press  FI  to  Zoom ' ; 


Dr aNlextHll, 4,1, Linel); 
DrawTextHll ,8,1 ,Line2) ; 
Dr  awTexttfll,  12,1,  Lined); 
DrawTextHll, 16, I, Line4); 
DrawTextHll, 20, l,Line5); 
DrawTextHll, 25, 1 .Lines) ; 


(write  lines  to  window) 


SetEreakOff;  SettlessagEOff; 
Set_Cap_Num( '  ');  Say_Cap_Nun; 


-repeat  (get 

read(kbd,ch) ; 

— case  ordlch)  of 

72  :  HaveVer  < -4 , true) ;  (up  arrow) 

75  :  HoveHor 1-1, true);  (left  arrow) 
77  :  MoveHor 1 1 ,true) ;  (right  arrow) 


(get  user  key  input) 


•  tt.-.f ' 
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513 

514 

515 

516 

517 

518 

519  E- 

520 

521 

522 

523 

524 

525 

526 

527 

528  8 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 
543 

549 

550 

551 

552 

553 

554 

555 

556 

557 
55B 

559 

560 

561 

562 

563 

564 

565 


80  :  HoveVer (4 ,true) ;  (down  arrow) 

-59  :  begin  quit  :=  false;  (FI  pressed  indicating  that  user  wants) 
leavegraphic;  (to  change  graph  scales) 

- end; 


-end; 


-until  (ord(ch)=  13)  or  (ord (ch)=59) ;  (quit  when  (return)  or  <F1>  pressed) 


-end; 


(h  Start  of  main  program.  This  part  increments  through  the  ranges  of  »*) 
(h  A  and  B  and  plots  the  graph.  The  above  procedures  are  called  as  *») 
(if  needed  by  the  main  program.  »») 


-begin  (Main  Program) 

InitGraphic;  LeaveGraphic;  (initialize  graphics  routines  6  screen) 


Select_Farameter_Range;  (prompt  for  A  6  B  parameter  ranges) 


if  stepA  then 


(set  up  steps  and  increments  for  A  J<  B) 


— begin 

DeltaStep  :-  abs((amax-amin!/4); 
Increm  :=  abs( (bmax-bmin)/50); 
— end 


else 

— begin 

DeltaStep  :=  abs((bmax-b.iin)/4); 
Increm  :=  abs( (amax-arain) /50> ; 


— end: 


Coeff  Input;  (input  the  coefficients  of  the  characteristic  equation) 

Change  :=  false;  (initialize  change  boolean) 

-Repeat 


Select_Nindow_Size;  (prompt  for  window  size  -  x  and  y  min's  and  max’s) 
a:-  amin;  b:=  bmin;  (initialize  a  and  b) 


INITGRAPHIC;  (define  values  for  graphics  routine) 
Def  i  neHi  ndow  ( 1 , 0 , 0 ,  XHaxGl  b ,  YtlaxGl  b ) ; 
DefineHorld(l,xmin,ymax,xmax,ymin); 

Sel ectHi ndow ( 1 ) ; Sel  ectWor Id (1 ) ; 
DrawAxis(5,-5,0,0,0,0,0,0,false); 


566  1  !  !  i 

1  :  symbol  :=  1; 

(  +  ) 

567  1  1  1  1 

2  :  symbol  :=  2; 

(  x  ) 

568  1  1  !  ! 

3  :  symbol  :=  7; 

(  »  ) 

569  !  !  !  ! 

4  :  symbol  :=  8; 

(  o  ) 

150 

for  j  :=  )  to  5  do  (step  through  5  values  of  selected  stepping  parameter) 

- begin 

-case  j  of 


\~ :  .rvM  -r  'i_»  [\_m 


^pr;Vfr^/>v^^:v^;Wi/.vj>;>  \v.\.  .vv-v  ,v • 


a 


i*j 
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5  :  symbol  :-  6;  {  Y  ) 
end;  (case) 


for  k  :=  1  to  50  do  f  smoothly  move  through  the  other  parameter) 
- begin  (range  in  50  increments) 


for  i:=  1  to  Order  +  1  do  (compute  each  coefficient  value) 
- begin 


inf ix_to_polish (Inf ixArrayt i ] , polish);  (parse  infix  ) 


Coff!pute_Pol i  =h (pol i sh , a ,b , Eval Array C i I ) ;  (evaluate  polish) 


RootFinder (Order, EvalArray,RealPart, ImagPart, 0,0);  (find  eg  roots) 


For  I:-l  to  Order  do  (fill  plotting  matrix  with  poles) 

- Begin 

F'lotPole(I,ll  :=  Rea! Part (11; 

PlotPcleC 1 ,23  :=  InagPartm; 

- end; 

AxisGlb  :=  true; 

— — - Case  Order  of  (artificially  fill  plotting  array  if  fewer 

than  J  points) 

0  :  ;  (&  plot  the  array  for  one  value) 

- 1  :  beqin  (of  a  and  b) 

PlotPol  el  2, 11 : =P1 otPol el 1 , 1 1; 

PI otFolel 2 , 2] : =P1 otPol el 1 , 21 ; 

PI  otPol el3, 1 1: =P1 otPol el  1 , 1 1 ; 

PI otPol el  3, 21 ;=P1 otPol el  1,21; 

DrawFol  ygon (PI otPol e , 1 , -3, -symbol ,1,0); 

- en(j. 

- 2  ;  begin 

FI otPol el  3, 1 1 : =P1 otPol el 1 , 1 1 ; 

PlotPol  e(3,2];=PlotPolei:, 2); 

PrawfolygonlPlotPole, 1,-3, -symbol , 1,0); 

- end; 

else 

Dr  awFol  ygon (PI ot  Pol e, 1 , -Or  der , -symbol , 1 , 0) ; 


if  stepA  then  b  :=  b  +  increm 
else  a  :=  a  ♦  increm; 

- end; 


(increment  one  parameter) 


if  stepA  then 
- begin 

stria: 10:4, hold);  (build  legend  string) 

Lineljl  :-  concatCA  =  ' ,hold) ; 
a:=  a  *  OeltaStep; 
b:-  bmin; 

- end  (next  step) 

else 

- begin 

str(b:10:4,hold);  (setup  legend  string) 

Linelj)  :-  concatCB  =  ’,hold); 


•j*  f  •  '  '>*'•*“**.' 

-a  mJ i  O  »  • a 


A  aA  nA  aA rJ"i  .Oa  .1  V A  A .  »  A  a.*  A  a  A  *Jt  i-1  *.  A  mJ\  nJ\  *A  aJL  A  ,«AkA  H.A.  *kjk  liA  aA  a  A  ■ 
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627  !  !  !  ! 

62B  ill! 

629  !  1  !  E- 

630  1  !  ! 

631  1  !  E— 

632  !  1 

633  1  ! 

634  1  E - 

635  I 

636  1 

637  I 
63B  1 

639  !  B - 

640  1  1 

641  !  ! 

642  !  E - 

643  1 

644  1 

645  ! 

646  ! 

647  E - 


b:=  b  +  DeltaStep; 
a:=  amin; 

■end; 


--end; 

quit  :=  true; 

Hake_Legend;  (draw  leqend  box  on  screen) 

•until  quit;  (quit  when  finished  with  legend,  repeat  if  user  wants  to  ) 
(rescale  graph  by  pressing  FI  in  Make_Legend  routine) 

quit  :-  false;  (this  is  a  different  use  of  quit  -  signalled  when  user) 

(done  with  graph  options  menu) 

—repeat 

Graph_Henu( '2-Param.Root  Locus' ,DumpGraph,quit); 

If  DumpGraph  then  PrintGraphData;  (dump  numbers  to  printer  or  file) 

— until  quit; 

LeaveGraphic; 

Assign (CadFi le, 'Cad.CDH' ) ;  Ire-execute  the  main  menu  program  when  finished) 
Execute (CadFile); 
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1 

2 

3 

4 

5 

6 
7 
B 

9 

10 
11 
12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 
27 

20  B- 

29  1 

30  E- 

31  B- 

32 

33 

34 

35 

36  E' 


43  1 

44  ! 

45  E- 


(» 

{* 

It 

(» 

(* 

(t 

(» 

(» 

(» 


TURBQ  GRAFHIX  version  1.05A 

Type  definition  nodule 
Hodule  version  1.00ft 

Copyright  (0  19B5  by 
BORLAND  International 


*) 

») 

») 

*) 

*) 

») 

») 

») 

»! 


(HHHHHHHBHHtHtHHHmtmHHHmttHtKHmt) 

const  HaxHorldsGlb  =4; 

HaxWindowsGlb  =16; 

HaxPiesGlb  =10; 

MaxPlotGlb  =500; 

HaxOrder  =9; 

MaxBlocks  =10: 

StringSizeGlb  =80 

HeaderSizeGlb  =10 

RamScreenGlb: boolean  =true; 

CharFile:stringCStringSizeGlb]=  '4x6. fon'; 


MaxProcsGlb 

HaxErrsGlb 

Extension:string(41 

type 

wkstring 
— WarldType 


-HindowType 


=27; 

=  ’.blx'; 

=string[StringSizeGlb); 

=record 

xl,yl1x2,y2:real; 

— end; 

=record 

xl ,yl  ,x2,y2:integer; 
header:wrkstring; 
drawn, top: boolean; 
size:integer; 

— end; 


37 

worlds 

=array  tl. .HaxHorldsGlb]  of  Worldlype; 

38 

windows 

=array  tl..HaxHindowsGlb]  of  HindowType; 

39 

Plotftrray 

=array  El..HaxPlotGlb,l. .2]  of  real; 

40 

character 

=array  C1..31  of  byte; 

41 

CharArray 

=array  132.. 126]  of  character; 

42  B - 

. — PieType 

=record 

area:real ; 
text:wrkstring; 
-end; 


46 

Piefirray 

=array  Cl. .HaxPiesGlb]  of 

47 

Backgroundflrray 

=array  10.. 7]  of  byte; 

48 

LineStyleftrray 

=array  10.. 7]  of  boolean; 

49 

str255 

=  string[2551; 

50 

strSO 

=  strinalBO); 

51 

str40 

=  string[401; 

52 

str20 

=  string[201; 

53 

strB 

=  stringlB); 

54 

str5 

=  string(5]; 

55 

str4 

=  stringt4]; 

56 

str2 

=  stringl2]; 
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57 

5B  B- 

59  ! 

60  ! 
61  1 
62  ! 

63  ! 

64  ! 

65  1 

66  ! 

67  1 

68  ! 

69  ! 

70  1 

71  E- 

72 

73 

74 

75 

76 

77 
7B 

79 

80 
81 
82 
83 
B4 
85 
B6 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 


PolyArray  =  arraytL.HaxOrderJof  Real; 

■Blocks  *  record 

NZeros,NPolEs:  integer; 

K  :  real; 

RealPartZero, 
ImagPartZero, 
RealPartPole, 

ImagPartPole  :Pol yArray; 
NunCoeff, 

DenCoeff  :PolyArray; 

LeadNumCoeff , 

LeadDenCoeff  :Real; 
FeedBack, 

Factored  : Boolean; 

- end; 


var 

XlHldGlb,X2HldGlb,YlWldGlh,Y2Wld61b,AxGlb,Ay61b,BxGlb,ByBlb:real; 


XlRefGIb ,X2Ref Gib , YlRefGlb,Y2Ref Gib 

Li  nest yl eGl b , Max Wor 1 dGl b , HaKWi ndowGl b , Wi ndowNdxGl b 

XlGlb,X2Glb,YlGlb , Y2Glb 

XTex  t G1 b , YTex  tGl b , VStepGl b 

Pi eGl b , Di rec t  Hod  eGl b , Cl i ppi  ngGl  b , A*  i  sGl b , Hat chGl b 

HessageBlb ,BrkGlb ,HeaderBl b , lopGl b , 8r  af Mod eGl b 

CntGlb.ColorGlb 


ErrCodeGlb 

LineGtyleArrayGlb 

Error Proc 

ErrorCode 

FcGlb 

AspectGlb 

GrafBase 

world 

windowl 

CharSet 

Ch 

Answer , Frey i ous_Answer , S 

Template 

P,Filvar 

InsertDn,Exit, 

Escape, 

FI  ,FI0, 

UseJJefault, 

First _Run 
NBlocks 
Block 
G_eq 

ConvergenceErrcr 

Change 

Finished 

InputFi  le,CadFile,Tin>eFi  le, 
FreqFile,  UtilFile,  TwoParamFi le 
Drive 

NegFeedBack 


[.integer; 

: integer; 

: integer; 
[integer: 

: boolean; 
[boolean; 

:byte; 

:byte; 

[LineStyleArray; 
:array  [0.  .MaxProcsGlb]  of  'HrkString; 

: array  [O..HaxErrsGlbl  of  ‘HrkString; 
:stringl40]; 

:real; 

[integer; 

[worlds; 

[windows; 

[Char Array; 

:  char; 

:  strBO; 

:  strBO; 

:  arrayEl. .353  of  str40;  (nenu  Prompts) 


:  Boolean; 

:  Integer; 

:  ArrayEl. .HaxBlocksl  of  Blocks; 
:  Blocks; 

:  Boolean; 

:  Boolean; 

:  Boolean; 

:  File; 

:  str2; 

:  Boolean; 
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Procedure  RootFinder  (N: integer;  var  Coeff ,RealPartRoot,ImagPartRoot:  Polyfirray;  P!,Q1:  Real); 


{»  RootFinder  solves  for  the  roots  of  an  ♦) 
U  arbitrary  real  polynomial  by  Bairstow's  ♦) 
{»  method.  *) 


9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33  B - 

34  ! 


(acceptable  computation  error) 


Const 

Epsilon  =  0.00001;  (acceptable  computation  error) 

Var 

fl,B,C  :  Polyfirray;  (calculation  arrays) 

P , Q , Del taP . Del t aQ , Denan  :  Real;  (P,0:  coeff  of  quadratic  factor) 


IterationCount,i 


:  Integer; 


finished 


:  Boolean; 


(DeltaP,DeltaQ:  iteration  increm) 
(Benofl:  Dencwi  used  to  compute  ) 

(  DeltaB  and  DeltaP) 
(IterationCount:  iteration  counter) 
(i:  misc.  loop  counter) 

(finished:  flag  to  tell  Hhen  done) 


PROCEDURE  Sol ve_Buadratic  (var  b,c, real!, imagl, real2,imag2:real); 


(ifmmutHHHimmimiimmtHiHtil 

(»  Solve.Buadratic  solves  a  polynomial  of  0 
(»  order  2  using  the  quadratic  equation  ♦) 
{mmHmimwmmiHimimmHim} 


S, radical  :  real; 


35  ! 

36  ! 

37  1  B - 

38  !  ! 

39  1  I 

40  1  ! 

41  1  ! 

42  1  E - 

43  ! 

44  !  B - 

45  1  ! 

46  !  ! 

47  !  1 

48  (  ! 

49  1  E - 

50  I 

51  E - 

52 

53  B - 

54  1 


— Begin  (procedure  so 

S:=  -b/2.0;  (of  the  form: 

radical  :=  (b»b)/4.0  -  c;  ( 

if  radical  >  0  then  (  -b  g 

- Begin  (real  roots)  ( 

reall  :=  S+sqrt (radical);  (  with  a  =  1. 

real2  :=  S-sqrt (radical ) ;  ( . . 

imagl  :=  0.0; 
imag2  :=  0.0; 

- End 

else 

- Begin  (iiiag  roots) 

reall  :=  S; 
real2  :=  S; 

imagl  :=  sqrt (-radical ) ; 
imag2  :=  -sqrt (-radical); 

- End; 


(procedure  solves  quadratic  equation) 
(of  the  form:  ) 
(  ) 
(  -b  g  f  b)  -  4ac  ) 


- End; 


— Begin  (FR0CEDURE  ROOTFINDER) 


{imimiHiimtimmiimimHiimiimm) 

(»  Fill  ft  matrix  with  user's  coefficients,  most  ») 


■  ■*.*  •«  “  -  *  <7  %r  f  "h  *  m*  V  *  »  *  „  ^  ,  '  . 
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57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 


{»  significant  coefficient  in  At3),  least  signif*) 

{*  in  Atn+31.  Initialize  B  and  C  matrices  to  0,») 

{»  HHHIHtHiHHimHHmHmtltHHHim) 

For  i :  =3  to  N+3  do  ACil  :=  Coef f [N+4-i ]/Coef f [H+13;  {normalize  to  unity 

highest  order  coeff) 

For  i :=1  to  maxorder  do  Bti)  :=  0.0;  (initialization) 

C:=B;  IterationCount:=l;  finished  :=  false; 

P:=P1;  fi:=Sl;  (best  guesses  for  initial  starting  values  -  normally  0  ) 


{  This  section  solves  simple  polynomials  of  order  zero  or  one.. . . . .,) 

{ . ) 


If  N=0  then  finished:1  true;  (quit  if  polynomial  is  order  0) 

If  N=1  then  {solve  polynomial  of  form:  x  +  a  =  0  ) 

8 - beg  j  n 

!  RealPartRoott  13:=  -M43; 

!  lmagPartRoottl]:1  0.0; 

1  Finished  :=  True; 

E - end; 

If  N=2  then  (solve  polynomial  of  form:  xA2  +  ax  +  b  =  0  ) 

B - begin 

!  Sol  veBuadratic  (AE43,A[53  ,RealPartRoot[2],I*agPartRoot[23  ,RealFartRoot  1 13,  ImaqPartRcot  1 1  ] ) ; 

1  Finished  :=  True; 

E - - - - — - - end; 

{ . ) 


{liHtmiiiHiimHmHtttiimiHHttmmmttm) 

{*  Bairstm's  method  searches  iteratively  for  the  *) 
{»  quadratic  factors  of  a  given  polynomial  and  uses  *) 
{*  that  factor  to  reduce  the  order  of  the  polynomial,  ») 
{*  The  process  is  continued  until  a  polynomial  of  ») 
{i  only  order  one  or  zero  remains.  ») 

{HtHHHftlHHHttlHIlHHlHHIIHlfHHHIHiHH) 


While  (not  finished)  and  (IterationCount  (  40)  do 

B - Begin  {solves  iteratively  for  quadratic  coeff) 

I  For  i:=  3  to  N+3  do  (P  and  Q  of  factor:  x)  +  Px  +Q  ) 

|  B - Begin 

!  !  Bti3  :=  Atil  -  P«Bli-13  -  QiBti-23; 

1  !  Ctil  :=  Bti 3  -  P*Cti-i3  -  Q«Cti-2]; 

1  E - end; 

l 

I 

1  Denom  :=  Ctn+13  »  Ctn+13  -  (C(n+2]-B(n+2))  »  Ctn); 

!  If  Denon  <>  0.0  then 

1  B - Begin 

!  1  DeltaP  :=  (BCn+23»C[n+l 3  -  Btn+33»ctn]) /Dencvn; 

1  1  DeltaQ  :=  (Ctn+1 J»BtN+3)  -  ICln+23-B(n+23) #Btn+23) /Denom; 

1  P:=  P+DeltaP;  8  Q+DeltaQ; 

1  !  If  labslOeltaf')  +  abs(DeltaB))  <  epsilon  then 

1  1  B - Begin  {  knowing  P  and  0  solve  the  quadratic  for  roots) 

1  !  1  Solve_Quadratic  (P,Q,Re.nlPartRoot[n3,](magPartRoot[n3  ,Real  PartRoottn-1 3 ,  IrsagF'artRoot  tn-13) ; 
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114  !  !  !  !  n:=n-2j 

115  11!  ! 

116  !  1  1  !  B - case  n  of  (if  deflated  polynomial  is  order) 

117  !  !  !  1  1  0:  finished  true;  {  0,1,  or  2  solve  here  ) 

118  1  111  1  B - 1:  Begin 

119  !  !  !  1  1  !  RealPartRootlnl  :=  -Btn+3]/B[n*2h 

120  !  !  1  1  1  !  ImagPartKootln)  :=  0.0; 

121  !  1  !  !  1  !  finished  :-  true; 

122  1  1  1  1  1  E - end; 

123  !  !  !  1  !  B - 2:  Begin 

124  !  1  !  !.!  !  Solve _Buadratic iBln+2] ,Btn+31, RealPartRootlnl, ImagF'ar tRoot tn  1  ,RealF’ar tRoot Cn-1 1 , ImagFar tRo 

ottn-1 

125  1  1  1  1  1  1  finished  :=  true; 

126  1  1  !  1  1  E - end; 

127  !  !  !  !  !  else 

12B  !  1  !  1  !  For  i:=  3  to  N+3  do  Alii  :=  Eli);  '8  is  reduced  order 

129  !  !  1  !  !  pol;  omial.  Assign  to 

130  1  !  1  I  !  A  am  iterate  again  ) 

131  !  !  !  !  !  .  I terationCount: =1 ; 

132  j  |  |  |  £ - end;  (case) 

133  1  !  !  E - end 

134  !!  1  else 

135  1  1  !  1 terationCount  :=  Iterati onCount+1; 

136  I  i  1 

137  !  1  E - end 

13B  !  1  else 

139  1  1  B - Begin 

140  !  1  !  P: =P+1 ;  Q: =Q+1 ;  IterationCount: =1;  beep  1350, 150); 

141  .  |  £ - end. 

142  1  E — - end;  (while} 

143  E - end;  (procedure) 


143  E - end;  (procedure) 


File:  EXPAND. INC 


Cross-Reference  k  Block  Listing 


Date:  9/10/B6 


3S 
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(WHIHHiHHHHHmHHHmimiHKWIlHHHH) 

{**  The  routine  Expand_Poly  takes  real  and  complex  »*} 
(h  conjugate  (actors  of  a  polynomial  and  expands  »*> 
{**  the  (actors  into  that  polynomial .  The  routine  *»} 
{»  uses  a  shi (t-multiply-add  algorithm  for  combining**) 


(«  the  factors  tm  at  a  tine.  Complex  conjugate 
{**  factors  are  pre-eultiplied  in  the  procedure 
{h  Con  jug  Hul  t  co  yield  a  real  second-order  sub- 


{**  polynomial  and  then  combined  with  the  remaining  *») 


(**  factors. 


{H**m»m«HH*»***»*m***t*m*»**H***Hm»mH) 


Procedure  Expand  Pol y (Real Ft , I magPt :Pol yArr ay ; var  Pol y:PolyArray;Order: integer); 
type 

Vec2  =  ArrayE1..23  of  real; 


Temp  :  FolyArray; 

Hold  :  Ve c2; 

I  :  Integer; 

Monomial  :  Boolean; 


Procedure  Conjug_Mult(R,I:real;var  Pol  1 ,Pol2:real ) ; 

— Begin 

Poll  :=  1*1  +  R*R;  (local  procedure  to  expand  a  quadratic  factor) 

Pol2  :=  2.0  *  R;  (into  a  second-degree  polynomial) 

— end; 


-Begin  (Expand _Poly) 


(mHmHiiiHmimnmmimmimimmwHm) 

{»*  Polynomial  factors  are  loaded  and  multiplied.  If  a  ») 
(**  conjugate  pair,  then  the  pair  is  expanded  first  to  *) 
{**  a  2nd  order  polynomial  then  multiplied.  *) 
(**  *) 
{*»  (ax  +  b) (x  *  c)  =  ax)  +  (b+c)x  +  be  *) 


For  1:=1  to  MaxOrder  do 
- Begin 

Tenp(I):=0.0;  PolyU3:=0.0;  (initialize  the  working  arrays) 


- end; 

If  Order  =  0  then  Polytl)  :-  1.0; 
While  Order  >  0  do 

- beqin 

If  ImaqPttOrder)  =  0.0  then 

- begin 

Templll  :=  -RealPt(Order); 
Tempt21  :=  1.0; 

Polytl)  :=  Tempt  1); 


(load  initial  real  into  arrays) 


'  ’  '  '  "  '  O  */  s"  -x  "  *  ‘  r  **  *  •  J*  -  *  .  O  O  h} 


\  O’" 


/ 
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57  !  I  !  Polyt2]  :=  Tempt 21; 

5B  1  !  !  Order  :=  Order  -1; 

59  1  !  E - end 

60  !  !  else  (load  converted  conjugate  into  arrays) 

61  1  !  B - begin 

62  1  !  1  Con  jug_Hul  1 1  -Real  Ptf  Order  ] ,  InaqPtEOrder  1  ,TempU  ]  ,Tefltp[2] ) ; 

63  1  !  !  Polytl]  :=  Tempt  11; 

64  1  1  !  Pol y[ 21  :=  Temp{23; 

65  1  I  i  Te»pt3)  :=  1.0; 

66  1  1  !  PolytJ]  :=  1.0; 

67  !  1  !  Order  :=  Order  -2; 

6B  1  !  E - end; 

69  1  1 

70  1  1  While  Order  >  0  do 

71  1  1  B - Begin 

72  1  1  1  If  InagPttOrder)  =  0.0  then 

73  1  1  1  B - Begin  (load  the  next  REAL  (actor) 

74  !  1  1  !  Mondial  :=  true; 

75  !  1  1  !  Holddl  :=  -ftealFt [ Order ] ; 

76  1  !  !  !  Holdt21  :=  0.0; 

77  1  1  1  E - end 

78  !  1  !  else 

79  1  '  1  B - — - — - Begin  (load  the  next  Conjugate-pair) 

BO  !  !  !  1  Monomial  :=  false; 

81  !  !  1  1  Con jug_Mult(-ReaiPt(Order),lniagPt(Order], Hold! l],Hold[21); 

82  !  1  1  E - end; 

83  1  1  ! 

B4  1  1  I  If  Not (Monomial)  then  (perform  extra  mult. required  by  2nd  order  poly) 

85  1  !  !  B - —Begin 

B6  !  !  I  !  For  l:=HaxOrder  downto  2  do  PolytIl:=Polytl-l 3; 

87  !  1  !  !  FolyCl)  :=  0.0; 

88-  I  1  1  1  For  !:=1  to  MaxOrder  do  PolytlhN’olydl  ♦  (Temp(I)  t  Hold(2)); 

89  1  !  !  1  Order  :=  frder  -  1; 

90  !  !  !  E - end; 

91  !  !  I  (process  Real  factor  or  continue 

92  !  !  I  processing  LSD  of  2nd  order  factor) 

93  1  !  ! 

94  !  I  1  For  1:=  MaxOrder  downto  2  do  Polytl)  :=  Polyd-ll; 

95  !  !  1  Polytl)  :=  0.0; 

96  1  !  ! 

97  !  !  !  For  I:=l  to  MaxOrder  do  Poly(I]:=PolytI)  +  (Tempt!)  f  Holdtl)); 

98  !  !  I 

99  !  !  1  Temp  :=  Poly; 

100  1  I  !  0rfler:=  Order  -  1; 

101  !  !  E - End  (while) 

102  !  E - End;  (while) 

103  !  Temp  :=  Poly; 

104  !  For  I:=  1  to  Order  do  Polyt0rderH-l):=  Tempt  IT; 

105  E - End;  (procedure) 

106 
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Procedure  Hake_Geq; 


i  iJ 

FHd_count_Z( 


integer;  (general  purpose  loop  indices) 


Fwd_count_P, 


Fbk_count_Z, 
Fbk_count_P 
RTeep,  ITemp, 
Temp Poly  I, 
TempFolyZ, 
FKd_IZ,Fwd_RZ, 
Fwdjp,FwdJ?P, 
Fbk  JZ,Fbk_RZ, 
Fbkjp,Fbk_RP 
Fwdjain, 
Fbk_gain 
count, count2 


integer;  (pole  and  zero  counters) 


PolyArray;  (Geg  factored  fori  holding  arrays) 


Real; 

integer; 


(temporary  counters) 


FeedBackPath&iists:  Boolean; 


Pud  count_Z:=  0;  Fwd_count_P:=0;  (initialize  temporary  holding  variables) 
Fbk_count_Z:=  0;  Fbk_caunt_P: =0; 

Fed  gain  :=  1;  Fbkgain  :=  1; 

FeedBackPathExists  :=  false; 


For  j:=l  to  ((Blocks  do 


(repeat  for  every  block  in  the  loop) 


—Begin 

with  Blocktj)  do 

- begin 

If  Feedback  then  (i 

- begin 

For  i :=1  to  NZeros  do 

- begin 


(if  the  block  is  in  feedback  path  do  this) 


(gather  poles  V  zeros  for  all  feedback  blocks  —  equivalent  to  multiplying 

block  polynomials  together) 


Fbk_count_Z:=Fbk_count_Z  +  1; 

Fbk  _RZ(  Fbk  _ccnt  _Z  ] :  =  Real  PartZerol  i ) ; 
Fbk_IZ[Fbk_CDunt_Z];=  liaqPartZeroti); 

- end; 

For  i:=l  to  NPoles  do 
- begin 

Fbk_count_P:=Fbk_ccmnt_P  +  1; 
Fbk_RPEFbk_count_P3 : 1  Real PartPoleC  i  ] ; 
Fbk_IP(Fbk_count_P]:=  ImagF'artPoleti); 

- end; 

Fbkjain  :=  Fbk_gain  *  K; 
FeedBackPathExists  :=  true; 

— end 
else 

— begin 


(gather  poles  and  zeros  for  all  forward  path  blocks  —  same  multiplicative 


‘tpl™  U-! 
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57  1  !  1  I  .  effect) 

5B  !  !  i  ! 

59  !  1  !  1  For  i:=l  to  NZeros  do 

40  1  !  !  !  B - begin 

61  1  !  !  I  !  Fwd_ccxint_Z:=Fwd_count_Z  +  I; 

62  !  1  !  1  1  FHd~RZ[Fwd_ccxint~Z3: =  RealPartZeraCi  1; 

63  !  I  !  1  1  FHd_IZ[Ftfd_CDunt_Z]s=  ImagPartZeroti 3; 

64  1  !  1  !  E - end; 

65  1  1  1  1 

66  1  1  !  !  For  i:=l  to  NPoles  do 

67  I  1  1  !  B - begin 

68  !  1  !  1  1  Fwd_co,jnt_P:=fHd_CDunt_P  +  1; 

69  1  1  !  1  !  Fwd~RPIF wd_count  j5 1 : =  Real F  ar tPol  et  i  1 ; 

70  1  I  !  !  !  F«d_IPCFwd_count_Pl:=  ImagPartPoleli]; 

71  !  !  !  1  E - end;" 

72  !  !  !  1  Fwdjain  :=  Fwdjain  *  K; 

73  1  !  !  E - endj'felse) 

74  !  !  ! 

75  !  1  E - - - end;  {«ith> 

76  !  E - end;  (for) 

77  ! 

78  1 

79  !  (Make  the  S_equi valent  block  from  poles  and  zeros  gathered  previously) 

80  ! 

81  I  wi th  G  eq  do 

83  !  1  For  i:=l  to  HaxOrder  do  (initialize  G  eq  factors) 

84  !  !  B - begin 

85  !  !  !  RealFartZeroli 3:=0.0;  lragPartZero[il:=0.0j 

86  !  !  !  RealF'artPoleti  1 :  =0. 0;  !«aqPartFole(il:=0.0; 

B7  !  !  !  NunCoef f (i J:=0.0;  DenCoef f li ):=0.0; 

88  !  i  E - end; 

89  1  !  NZero5:=0; 

90  1  ! 

91  1  1 

92  I  I 

93  !  !  {»im»tt  G_equi valent  Zeros  are  product  of  Forward  path  zeros  and  hiihih) 

94  !  I  {  Feedback  path  poles.  ) 

95  I  I 

96  !  I 

97  1  !  For  i:=  1  to  FwdjountJ  do 

98  !  I  B - begin  (collect  forward  path  zeros) 

99  I  !  I  NZeros: =NZeros  t  I; 

100  1  !  !  RealPartZerotNZerosl  :=  Fwd  RZtil; 

101  •'  !  I  IuagF'artZerolNZeros]  :=  Fwd  IZtil; 

102  I  !  E - end; 

103  !  !  For  i :=  1  to  Fbk_count_P  do 

104  !  I  B - begin  (collect  feedback  path  poles) 

105  !  1  !  NZeros:=NZeros  +  1; 

106  1  1  !  RealPartZerotNZercsl  :=  Fbk_RP(i ]; 

107  I  !  !  1 magPar tZerotNZerosl  :=  Fbk  IFtil; 

108  1  1  E - end; 

109  !  1 

110  1  !  If  NZeros  =  0  then  NumCoef f [ 13  :=  1.0 

111  1  1  el se 

112  1  !  Expand  Foly (Rea! Part  Zero,  ImagPartZero,  NumCoeff,  NZeros); 

113  1  1 
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114  I  1 

115  1  1  {*«*««  6  equivalent  Poles  are  product  of  Forward  path  zeros  and  »«»»*»»»») 

116  1  1  {»***«  Feedback  path  zeros  added  to  the  product  of  Forward  Path  poles  »»«») 

117  !  1  {»HttH»H»»ttit»»i»H  and  feedback  path  poles,  hihiiihiihhihiiiiiiii) 

118  :  : 

11V  !  i  count:=0;  count2:=0; 

120  !  1 

121  1  1  For  i:=l  to  Fwd  count  Z  do 

122  !  !  D - begin  (collect  forward  path  zeros) 

123  1  1  1  count:=count*l; 

124  !  1  1  RTempCcauntJ  :=  Fwd  RZli 3; 

125  1  1  1  ITemptcount)  Fwd_IZCi 1;  (and) 

126  1  !  E - end; 

127  1  ! 

128  1  i  For  i:=l  to  Fbk_count_Z  do 

129  !  !  8 - begin  (carbine  with  feedback  path  zeros) 

130  I  1  !  count:=count+l; 

131  !!  !  RTempCcount)  :s  FbkRZtil; 

132  1  !  1  ITenp(count)  :=  FbkJZ(i): 

133  1  1  E - end; 

134  1  1 

135  !  1  Expand  Poly (Rtemp, I  temp ,  TespPolyl,  count); 

136  !  ! 

137  1  1  For  i:=l  to  count  ♦  1  do  (multiply  zeros  polynomial  by  gains) 

138  1  1  TertpFalylEi ):=  TempFolylti)  *  Fwd  Gain  »  Fbk  Gain; 

139  1  1 

140  1  ! 

141  1  1 

142  '  I  For  i:=l  to  Fwd_count_P  do 

143  1  1  B - begin  (collect  forward  block  poles) 

144  !!  !  count2:=count2+l; 

145  1  1  I  RTemp(count2)  FwdRPti); 

146  1  !  1  lTemp(count23  :=  FwdJPti);  (and) 

147  !  !  E - end; 

148  !  1 

149  1  I  For  i :=1  to  Fbk_count_P  do 

150  1  !  0 - begin  (combine  with  feedback  block  poles) 

151  !!  1  count  2 : =coun  1 2+ ! : 

152  1  !  !  RTemplcount2)  :=  Fbk.RPEi); 

153  !!  !  nei»p(count2)  :=  Fbkjp(i); 

154  1  I  E - -end; 

155  I  ! 

156  !  I  if  not (FeedPackPathExists)  then 

157  1  1  B - begin  (if  there  are  no  feedback  blocks,  then) 

158  1  I  !  for  i:=l  to  fwd_count_P  do  (G_eq  poles  are  fwd  block  poles) 

159  !!  !  B - begin 

160  1  !  !  !  RealPartPoleti)  :=  Fwd  RFtil; 

161  !  1  I  !  ImagPar tPoleC i J  :=  FwdJPti); 

162  1  !  1  E - end; 

163  !!  !  ((Poles  :=  Fwd.count.P; 

164  !!  I  Expand_Poly(RealPartPole,l*agPartPole,DenCoeff,NPoles); 

165  1  I  E - end 

166  I  1  else  (otherwise  add  two  temporary  polynomials) 

167  !  !  B - begin 

168  1  1  1  Expand  Pol y ( Rtemp  ^ I  temp , TempFol  y2 ,  count2); 

169 

170 
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171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 
183 
1B4 

185 

186 
187 


E- 


else  Npoles  :=  count2;  (poly  is  ((Poles) 

For  i :=1  to  NF'oles  *  1  do 

If  NegFeedBack  then  DenCaefHi  1:  =TempFoly2Ci  1  ♦  TeepPolylfil 
else  DenCoef f t i  1 :  =Te(npPol y2[ i 3  -  TempPolyl C i  1; 

RootFinder  (((Poles,  DenCoef  f  ,RealPartF'ole,lmagPartPole,0,0); 


-end: 


K  :=  Fwd_gain;  fS_eq  block  gain  is  coobined  forward  path  gains) 

FeedBack  :=  false;  (set  B_equi valent  boolean  flags) 

Factored  :=  true; 

Leadf4umCoeff :  =  1;  LeadDenCoeff:-  1; 


- end;  faith) 

-end;  (procedure) 


1 
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1  {HBtHHttHHHHHHHMfmmttHHHtHHItHHtHHHHiH} 

2  {»♦  ShowRoots  is  the  procedure  called  in  the  main  menu  to  »*) 

3  (♦*  locate  the  closed  loop  roots  d<  the  loop  equivalent  xfer  »*) 

4  {«  function.  at) 

6 

7  Procedure  ShowRoots !G_eq  :  Blocks); 

fl  Var 

9  I ,N,PosCounter :  Integer; 

10  Real  Root, 

11  InaqRoot, 

12  ClosedloopFoiy:  PolyArray; 

13  key,keyold  :  integer: 

14  not_erased  :  boolean; 

15  ' 

li  B - Begin 

17  ! 

18  !  With  G_eq  do 

19  I  B - Begin 

20  1  1  ClrScr;  HiqhVideo:  (on-screen  titles) 

21  !  !  Centerf'ttt  Block  Transfer  Function  Closed-Loop  Roots *«',  1,2, 80); 

22  !  I  ,  writeln;  writelnls);  writeln; 

23  1  !  ■  writeln! 'ZEROS:  '); 

24  I  i 

25  !  !  For  1:=1  to  NZeros  do  (position  for  output) 

26  !  1  B - begin 

27  1  1  1  FosCounter  :-  II  mod  2)  ; 

28  i  !  I  If  PosCounter  =  1  then  uriteln; 

29  !  I  ! 

30  1  I  I  LowViden;  (write  zeros  -  note:  zeros  of  D.L.  system  same  as 

31  I  I  I  C.L.  roots) 

32  1  I  1  writers!', 1,')  =  ' ,Real PartZerot  11:10:3,'  +j  ‘ , ImagPartZerotl]:  10:3) 

33  !  1  1  writer  '); 

34  1  I  E - end; 

35  I  I 

36  1  !  writeln;  writeln;  HighVideo; 

37  I  1  writeln ('POLES:  '); 

38  1  1 

39  !  ! 

40  1  1  (Make  closed  loop,  unity-feedback  system) 

41  !  I  For  Is=l  to  Maxorder  do  ClosedLoopPolyU]  :=  0.0; 

42  !  I 

43  !  I  For  1:=1  to  NZeros  +  1  do  ClosedLoopPolyU)  :=  NumCoeffU)  «  K; 

44  !  I 

45  1  1  For  1:=1  to  Woles  ♦  1  do  ClosedLoopPolyU)  :=  ClosedLoopPolyU)  * 

46  I  !  DenCoeffUJ; 

47  I  I 

48  !  I  If  NFoles  >  NZeros  then  N  :=  NPoles 

49  I  1  else  N  :=  NZeros; 

50  I  1 

51  !  !  RootFinder (N,Clo5edLoopPoly ,RealRoot , IroagRoot ,0,0) ;  (find  factors) 

52  1  1 

53  I  1  For  I:=l  to  N  do 

54  I  I  B - begin  (compute  on-screen  position) 

55  1  I  I  PosCounter  (I  mod  2!  : 

56  !  I  I  If  PosCounter  =  1  then  writeln; 
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57  1  1  1 

58  1  1  1  LowVideo; 

5?  !  !  1  (output  roots) 

40  1  1  !  writelsC',!,']  =  1 ,  Real  Root  [  1 1 : 10:3, '  +j  ’ ,  ImaqRoottl):  10:3) ; 

41  !  1  !  write!'  '!; 

42  !  1  E - end;  (for) 

43  1  1 

64  1  E - end;  (with) 

45  ! 

44  i  HighVideo; 

47  1  aisg  CFtess  any  key  to  continue  or  [Shift)  [RrtSc)  for  hardcopy. ' ,  1,24) ; 

•48  1 

49  I  (check  keyboard  buffer  for  value  change.  If  number  changes  by  1  or  2 

70  !  indicates  that  shift  key  depressed.  If  so,  then  remove  "Pc ess  any  key...1 

71  1  prompt  from  screen  so  it  won't  print  to  printer) 

72  1 

73  1  keyold  aem[0000:1047);  not_erased  :=  true; 

74  !  B - Repeat 

75  I  1  key  :=  memlOOOO:  1047); 

74  !  1  if  ((key=keyold  +  1)  or  (key=keyold  +  2))  and  Inotjrased)  then 

77  !  I  ft - begin 

78  1  !  !  6otoXY(l,24);  write!-  ':B0); 

79  1  1  I  not  erased  false; 

80  1  I  E - end; 

81  1  E - Until  KeyFressed; 

82  I 

B3  £ - end;  (Procedure  ShowRoots) 
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Procedure  ShoH_Factared_Roots; 

Var 

I, N,N, PosCounter:  Integer; 

NorffiFact  :  Real; 

kev.xeyold  :  Integer; 

nut  erased  :  Boolean; 

— Begin 

if  NBlocks  -  0  then  (print  waining  if  no  blocks  currently  in  memory) 

— begin 

clrscr;TextColor (Red  +  Blink); 
center  1 'WARNING' ,1,10,00);  Tex tCol or (Whi te) ; 
center!'***  There  are  NO  blocks  currently  loaded  !  ***',1,12,80); 

— end; 

For  «:=  1  to  NBlocks  do  (for  each  block  in  the  loop) 

— begin 

With  Blocktol  do 

- Begin  (print  screen  titles) 

ClrScr;  HighVideo; 

Center!'***  Block  Transfer  Function  Roots  ***’,1,2,80); 
witeln;  writeln(s);TextCol or  (white); 

NormFact:=  LeadDenCoeff/LeadNunCoeff; 
witel 'BLOCK!', «,']'); 

Hriteln ( '  Block  Gain  =  ' ,K*  NormFact:14:4); 

TextCoior (green); 
witeln! 'ZEROS:  '); 

For  I:=l  to  NZeros  do  (write  all  zeros) 

- begin 

PosCounter  :=  (I  nod  2)  ;  (write  2  across  screen) 

If  PosCounter  =  1  then  Hriteln; 

LowVideo; 

writel's!', I,']  =  ',RealPartZeroll):8:3,'  *j  1  ,ImagPartZero!I ):B:3) ; 
write!'  '); 

witeln;  witeln;  TextCoior  (green); 
witeln  ('FOES:  '); 

For  1:*1  to  NPoles  do  (repeat  for  poles) 

- Hjegin 

PosCounter  :=  (1  nod  2)  ; 

If  PosCounter  =  1  then  witeln; 

LowVideo; 
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write! 's! ' ,1 , '3  =  ',RealPartPole!I]:B:3,'  +j  ’,liMgPartPole!I):8:3); 
witeC  ’); 


r 

j! 
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HighVideo; 

msg  ('Press  any  key  to  continue  or  [Shift]  IFrtScl  for  hardcopy. ',1,24); 

(Test  keyboard  buffer  for  shift  key  depressed  (shift  key  changes  buffer 
contents  by  1  or  2).  If  shift  key  is  pressed,  then  a  blank  line  is 
written  over  the  ressage  ’Press  any  key...’  so  it  will  not  print) 

keyold  :=  MtOOOO:  10471;  (check  initial  value  of  buffer) 
not_erased  :  =  true; 

—Repeat 

key  :=  memtOOOO: 1047];  (repeatedly  check  buffer  for  changes) 

if  (lkey=keyold  +  1)  or  (keyrkeyold  t  2!)  and  (not  erased)  then 
(if  shift  key  pressed  and  nessage  not  previously  erased  then:) 

- begin 

GotoXY (1,24);  writer  ' :B0) ;  (overwrite  nessage) 
notjrased  :=  false; 

- end;  . 

— Until  KeyPressed;  (if  other  key  pressed  then  continue  to  next  event) 
-end; (for) 


With  6_eg  do  (repeat  entire  process  for  G-equivalent  block) 

- Begin 

ClrScr;  HighVideo; 

Center Ch*  Loop  Equivalent  Block  Transfer  Function  ***’ ,1,2,80); 
writeln;  witeln(s);TextColor (white); 

writelnCB  equivalent  Block  Block  Gain  *  '  ,K:  14:4) ; 

TextCoIor (green); 
writeln! 'ZEROS:  ’); 


For  1:=1  to  NZeros  do 

- begin 

PosCounter  :-  (I  nod  2)  : 

If  PosCounter  =  1  then  writeln; 

LowVideo; 

write!  s[ ’ , 1 , ' )  =  ',RealPartZero[I):B:3,’  +j  ' , ImagPartZerot ] ): B:3) ; 
wr;te('  '); 


witeln;  witeln;  TextColor (green); 
writeln! 'POLES:  '); 

For  I:=l  to  NPoles  do 
- begin 

PosCounter  :=  II  nod  2)  ; 

If  PosCounter  =  1  then  writeln; 

LowVideo; 

witeCsl',!,']  =  ,RealF'artPole[I):B:3,'  +j  ' , ImagPartPol etl ):8:3) ; 
write! ’  '); 


167 


Cross-Reference  6  Block  Listing 


Date:  9/10/86 


File: 


**  r» 


114 

115 

116 
117 
1  IS 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 


SH0HFACT.1NC 

1  E - 

» 

E - 


-end; {for) 


-end: (with) 


HiqhVideo; 

«sg  (Tress  any  key  to  continue  or  [Shift!  (PrtSc)  for  hardcopy. ',1,241 
keyold  :=  itenlOOOO: 10471;  not_erased  :=  true; 

-Repeat 

key  memtOOOO: 10471; 

if  ( (key=keyold  *  1!  or  lkey=keyold  ♦  2)1  and  !not_erased)  then 
- begin 

GotoXYd ,24) ;  writer  ':B0); 
not_erased  :=  false; 

- end; 


—Until  KeyPressed; 


-end; (Procedure  ShowRoots) 
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{iHHIiHHmiHmHIlHHHmHIIIIIHHHlHIHlimimiHmiHIHIK) 

(*»  Procedure  ShowPoly  is  the  utility  routine  to  display  the  current  loop  **) 
{**  blocks  in  polynomial  for*.  It  first  shows  each  block,  then  the  Geq  **) 
{»»  block.  »*] 

{HHtlHHHHHftHIHfHHHHfHHIfiHtiHHHIHHIHHfHillfflilHfff) 


Procedure  ShowPoly; 
Var 

VertPos, 

HorizPos, 

PosCounter, 

1,J  : 

Exponent  : 

NormFact  : 

Character  : 

key,keyold  : 

not  erased  : 


Integer; 

String[23; 

Real; 

Char; 

Integer; 

Boolean; 


- Begin 


if  NBlocks  -  0  then  (print  naming  if  no  blocks  in  memory) 

- begin 

c  1  r  scr ;  Tex  tCol  cx-  (Red  +  Blink); 
center (' WARNING ' , 1 , 10, BO) ;  TextCol or (Hhi te) ; 
center  ('»«  There  are  NO  blocks  currently  loaded  !  «»',!,  12, 801; 
— end; 


For  i:=  1  to  NBlocks  do  (print  each  block  in  loop) 

- begin 

Hith  Block(i)  do 
- Begm 

ClrScr;  HighVideo;  (screen  title) 

CenterC«»  Coefficients  of  Block  Polynomial  **»’ ,1,2,80) ; 
writeln;  hritelnls);  TextColor (Green); 
write! 'BLOCK  l',i); 

(return  normalized  coefficients  to  state  at  input  -  won't  ) 
(confuse  user) 

NormFact  :=  LeadDenCoef f /LeadNumCoef f ;  TextColor (White) ; 
writelnC  Block  Gain  =  ’,  K»  NormFact:  14: 4); 

TextColor (Yel low) ; wri teln ( 'NUMERATOR:  '); 


(compute  screen  positions  for  coefficient  display) 

VertPos:1  8;  LowVideo; 

For  I:=  NZeros+1  downto  1  do 

- begin 

J:=NZeros+l  -  1; 

PosCounter  :=  (J  nod  3) +1  ;  (display  3  coeff  across  screen) 
HorizPos  :=  PosCounter  *  15; 

If  PosCounter  =  1  then  VertPos  :=  VertPos  ♦  2; 


If  I  0  1  then  (trite  "+  s"  with  proper  exponent) 

- begin 

msgCs  ♦', HorizPos, VertPos); 
str(I-l:2,Exponent!| 
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57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


81 

82 

83 

B4 

85 

86 
87 


89 

90 

91 

92 

93 

94 

95 

96 

97 


99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 


msg (Exponent , Hori :Pos+ 1 , Ver tPos-1 ) ; 
-end; 


GoToXY (HorizPos-9,VertPos) ; 
write! (LeadNumCopr#  *  NumCoeffU)):8:3); 
-end; 


Hi ghVi deo; wr i tel n ;  writeln (s) ;  writeln;  Ido  same  for  denominator) 
writelnl 'DENOMINATOR:  ); 


VertPos  :=  16;  LowVideo; 

For  I;=  HPoles+1  downto  1  do 

- begin 

J:=NPolesM  -  1; 

PosCounter  :=  13  nod  4)  t  1;  HorizPos  :=  PosCounter  *  15; 
If  PosCounter  =  1  then  VertPos  :=  VertPos  t  2; 


If  1  <>  1  then 
— begin 

insgl's  F, HorizPos, VertPos); 

str 11-1:2, Exponent); 

msg (Exponent ,Hori2Pos+l ,VertPos-l) ; 


-end;  (if) 


GoToXY (Hori zFds-9, VertPos) ; 
wri te (LeadDenCoef f  » DenCoefftI];B:3); 
-end;  (for) 


isg  ('Press  any  key  to  continue  or  [Shift]  [PrtSc]  for  hardcopy. ' , 1 ,24) ; 


(check  keyboard  buffer  for  shift  key  (shift  keys  change  buffer 
contents  by  1  or  2),  If  shift  key  depressed,  then  the 
'Press  any  key..."  message  is  erased  from  the  screen  so  it 
won't  print.) 


keyold  :=  memCOOOO: J047];  (check  initial  condition  of  buffer) 
not  erased  ;=  true;  (initialize  boolean) 

-Repeat 

key  :=  irenl0000:;047];  (repeatedly  check  bufer) 
if  Ukey=keyold  +  1)  or  (key=keyold  +  2))  and  (not_erased)  ther, 

(if  shift  key  depressed  and  the  message  has  not  already  been  erased) 
- begin 

GotoXYfl ,24) ;  write!'  ':80l;  (write  blank  line  across  message) 
not_erased  :=  false;  (sets  erased  boolean) 

- end; 


-Until  KeyPressed;  (any  other  key  will  continue  to  next  event) 


-end;  (with) 


-end;  (for) 


Kith  G_eq  do  (repeat  entire  process  with  G  equi valent  block) 

- Begin 

ClrScr;  HighVideo; 

Center! ’***  Coefficients  of  Block  Polynomial  »«',1,2,B0); 
writeln;  writelnfs);  TextCol or (Breen); 
write! 'G-equi valent  '); 

Normfact  :=  LeadDenCoef f/LeadNumCoeff;  TextColor (White); 
writeln!'  Block  Rain  *  ',  K*  NormFact: 14:4); 
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114  1  !  TextColor (Yellow) ;witBln( 'NUMERATOR:  '); 

115  1  ! 

116  1  !  VertPos: =  8;  LowVideo; 

117  !  !  For  1:=  NZeros+1  downto  1  do 

118  i  I  B - begin 

119  !  1  1  J:=NZeros+l  -  I; 

120  1  !  !  PosCounter  :=  (J  mod  31+1  ;  HorizPos  :=  PosCounter  ♦  15; 

121  !  1  !  If  PosCounter  =  1  then  VertPos  :=  VertPos  +  2; 

122  !!  1 

123  !  1  1  If  1  <>  1  then 

124  1  !  !  B - begin 

125  1  !  !  !  itsgCs  +*,  HorizPos,  VertPos); 

126  1  !  !  !  str(I-!:2, Exponent); 

127  1  1  !  !  msg (Exponent ,HorizPos+I ,VertPos-l) ; 

128  1  !  !  E - end; 

129  1  !  !  GoToXYIHoriiPos-9, VertPos); 

130  !  1  1  write  ULeadNueCoeff  *  NusCoef 4 1 1  ]) :8:3) ; 

131  !  1  E - end; 

132  !  ! 

133  1  1  HighVideo;witeln;  writelnls);  writeln; 

134  !  !  writelnl ’DENOMINATOR:  ’); 

135  1  1 

136  !  1  VertPos  :=  16;  LowVideo; 

137  1  1  For  I:=  NPolesM  downto  1  do 

138  1  1  B - begin 

139  1  1  !  •  J:=NPoles+I  -  I; 

140  1  I  1  PosCounter  :=  (J  nod  4)  +  1;  HorizPos.  :=  PosCounter  »  15; 

141  1  1  1  If  PosCounter  =  1  then  VertPos  :=  VertPos  +  2; 

142  !  1  ! 

143  !  1  !  If  I  <>  1  then 

144  1  !  !  B - begin 

145  1  1  !  1  msg I 's  HorizPos, VertPos); 

146  I  !  !  !  str(l-l:2, Exponent); 

147  I  1  I  1  msg (Exponent ,Hori zPos+1 , Ver tPos-l ) ; 

148  1  1  !  E - end;  (if) 

149  1  1  1  GoToXY!HorirPos-9, VertPos); 

150  !!  1  writelLeadDenCoeff  ♦  DenCoefflI]:8:3); 

151  1  1  E - end;  (for) 

152  1  !  #sg  ( Tress  any  key  to  continue  or  (5hift)  (PrtGc)  for  hardcopy. ' ,  1 ,24) ; 

153  !  1  keyold  :=  uentOOOO: 1047);  not_erased  :=  true; 

154  1  1  B - Repeat 

155  1  !  1  key  :=  meatOOOO: 1047); 

156  1  1  I  if  ((key=keyold  +  I)  or  (key=keyold  <■  2))  and  lnot_erased)  then 

157  I!  1  j| - begin 

158  !  !  !  1  GatoXY (1,24);  writeC  ’:BO); 

159  1  !  !  1  not_erased  :=  false; 

160  !  1  !  E - end;" 

161  !  !  E - Until  KeyFressed; 

162  1  1 

163  !  E - end;  (with) 

164  ! 

165  E- 


■end; (Procedure  ShowPoly) 
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{»»  User_Polynoaial_Roots  is  a  procedure  to  allow  the  user  to  input  any 

(h  arbitrary  polynomial  and  automatically  output  the  roots  of  that  »») 

{»♦  polynomial.  It  uses  the  standard  input  routines  and  RootFinder  to  **> 

(*»  compute  the  roots  of  the  polynomial;  »») 

{iHtimtmtHmmmHtmiimmHtiHHHmHHHHiHHHimHim) 


Procedure  User_Pol ynoni al _Roots; 
Var 


PolyOrder, 

PosCounter, 

VertPos, 

HorizPos, 

I, K, code 


Integer: 


PolyCoeff , 
Real  Part, 
ImagPart 


Exponent 


Polyftrrayj 

StringC23; 


-Begin 

ClrScr;  HighVideo:  {TITLE) 

Center ('»«  ROOTS  OF  ft  USER  INPUT  POLYNOMIAL  «*',!,  1,80); 

Fillcharls, 100,1205):  s:=  copy ( s ,  1 , BO) ; 

writeln;  writeln(s);  writeln; 

writelnT  Polynomial  Coefficient  Input:  '); 

writeln; 


msgCHhat  is  the  Order  of  the  Polynomial?  ',10,8);  {prompt  user  for  poly) 
input  ('NY '  ,60,8,2,  true,Fl,F10); 
val (Answer, PolyOrder, code); 
writeln; 


VertPos:=  12;  (position  prompts  on  screen) 

For  I;=  Poly0rder+1  downto  1  do 

- begin 

K:  =PaIy0rder+l  -  I; 

PosCounter  (K  mod  6!  +  1;  HorizPos  :=  PosCounter  »  10; 
If  PosCounter  =  1  then  VertPos  :=  VertPos  ♦  2” 


If  I  0  1  then 
— begin 

msgl's  +’  HorizPos, VertPos); 

str(l-l:2, Exponent); 

ssg (Exponent,  HorizPos+l,VertPos-l); 


-end; 


i  nput  CN', ",  HorizPos-5,  VertPos,  5,  true,  FI,  F10); 
val  (answer , Pol yCoef  f  C 11 ,code) ; 


-end; 


ClrScr;  Center!'***  Computing  Roots  —  Please  Wait  h*',1,10,B0);  (wait  msg) 
RootFinder (PolyOrder, PolyCoeff .RealPart, ImagPart, 0,0) ;  (solve  for  roots) 
ClrScr;  HighVideo;  Beep (350, 150);  (alert  user  when  finished) 
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57 

5B 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


E - 


Center  ('»«  Roots  of  the  Polynomial  ***' ,1,2,80);  (root  display) 
witeln;  witeln(s);  witeln; 


For  1:=1  to  PolyOrder  do  {compute  screen  positions) 
- begin 

PosCounter  :=  (1  nod  2)  ; 

If  PosCounter  =  1  then 

- begin 

witeln;  witeln; 

- end;  {display  the  roots)  ' 


LowVideo; 

NriteCst',1,']  =  ‘ ,RealPart[l 3: B:3, '  rj  ',ImagParttl]:8:3); 
witef  '); 


-end; 


HighVideo; 

fflsg  ('Press  any  key  to  continue  or  [Shift)  [PrtScl  for  hardcopy.' ,1,24) 
— FEFEAT  UNTIL  KEYPRESSED; 

-end; 
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1 

2 

3 

4 
3 
6 

7 

8 

9 

10 
11 
12 

13  8- 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35  E' 

36 

37 


{mtmmHmHHmmummmmmtmtfmmmHimummmH) 
fat  Graph  jlenu  provides  a  Hindi*  on  screen  and  offers  the  user  options  to  **) 
{*»  make  a  title,  print  the  graph,  print  the  numbers  from  the  graph,  or  »*! 
(*♦  quit  and  return  to  the  menu.  »♦) 

{HmtHHmHHmHHmmmiHiimimHimtmmmmmmHmi) 

Procedure  Graph  Jtenu(TitleWindowNa(se:5tr20;var  Duisp6raph0ata,quit  :  boolean); 
var 

Linel,  Line2,  Line3  :  stringMOJ;  (graph  prompt  lines) 


Procedure  TitlePrompt;  (Prompts  for  user  supplied  graph  title) 
—begin 

TextColor (White); 

Centeri'Ht  flake  Graph  Title  *»*',1,2,80); 


R[l):=  'I010A04001-010100'; 

PC23:=  '1012A04002-010100'; 

P(3):=  1 1014004003-010100-; 

textcolor (yellow); 
msg ( 'Line  II:', 1,10); 

«sg(  'Line  12: ',1,12); 
msg ('Line  13: ',1,14); 

textcolor (green); 

msgt'Type  in  the  title  you  Nish  for  your  graph. ' ,6,20); 

Input  handler CN0103', escape); 

Lineh=  copyff  ilvarll  ],  1 ,40) ; 

LineZ: =  copy ( f i 1 yar  C2] ,1,40); 

Line3:=  copy ( f i 1 var (3) ,1,40); 

-end; 


38 

39 

40  fi¬ 
ll  1 

42  ! 

43  1 

44  1 

45  ! 

46  1 

47  1 

48  ! 

49  I 

50  ! 

51  1 

52  1 

53  1 

54  1 

55  ! 

56  ! 


Procedure  ShonTitle;  (makes  titU  ulock  and  writes  title  to  block) 

-begin 

copyscreen; 

SetLineStylelO); 

Def  ineWindoH<3,l 1,20,40, 60); 

DefineWorld(3, 0,16, 40,0); 

SelectHorld(3);  SelectHindowi3); 

Def ineHeader (3,Ti tleHindowName) ;  (puts  header  on  box) 

SetBackground(O); 

SetHeader On ; Dr  awBor der ; 

DrawTextHd, 4,1, Linel);  (draw  title  supplied  by  user) 

DrawTextHI 1 ,8,1 ,Line2); 

DrawTextHd  ,12,1  ,Line3); 

SetBreakOff;  SetHessageOff; 

— repeat 

read (kbd,ch) ; 

— case  ord(ch)  of  {allow  user  to  move  title  box  anywhere  on  screen) 
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57 

58 

59 

60 
61 
62 

63  E 

64 

65 

66 


69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
B1 
82 

83 

84 
B5 
86 
87 


67  B- 

68 


B9 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109  E 

110 
111 


72  : 
75 
77 
80 

-end; 


HoveVer  (-4 , true) ;  iup  arrm) 
HoveHor(-l,true);  (left  arrow) 
MoveHor ( 1 , true) ;  (right  arrow) 
HoveVerH.true);  (down  arrow) 


-until  ord (ch)=  13;  (freeze  box  and  continue  with  (return)  key) 


-end; 


(save  underlying  screen  and  display  menu  box) 


-begin 

DumpGraphData:=  False; 
copyscreen;  SetLineStyle(O); 

BefineWindowH ,  1 1 ,20,35,90) ; 

DefineHorldl4, 0,20,20,0); 

SelectHorld!4);  SelectHindow(4) ; 

Def ineHeader <4,  "Graph  Options  Menu " ); 

SetHeaderOn;  SetBackground(0);BraHBorder; 
DrawTextW(!,4,l,"<P>  Print  Graph");  (display  nenu  options) 
DrawTex tH ( 1 , 7 , 1 , " < T>  Hake  Title  Block"); 

DrawTextHll ,10,1 , "<N>  Print  Table  of  Numbers'); 

DrawTextHU ,  13, 1 , "  used  to  Generate  Graph'); 

DrawTextHd ,  17,1, "<Q>  Return  to  Hain  Menu)"); 

— repeat 
Option; 

- case  ch  of  (interpret  user  input) 

- "P":  begin 

swapscreen;  (redisplays  screen  without  menu  box) 
hardcopy!false,l);t  (print  to  printer) 
swapscreen;  (brings  back  screen  with  menu  bux) 
ch  :=  "P"; 


-end; 


-"T":  begin 


leavegraphic; 

(leave  graphics  screen) 

TitlePrompt; 

(prompt  for  title) 

entergraphic; 

(return  to  graphics  mode) 

swapscreen; 

(bring  back  graph) 

GhowTitle; 

(display  title  box  on  screen) 

copyscreen; 
ch  :=  "T";’ 
■end; 

(save  graph  with  title  box) 

"N":  begin 

DumpGraphData  :=  True; 
swapscreen; 
ch  :=  "N"; 

- end; 


(sets  boolean  to  cause  numbers  to  be  printed) 
(bring  back  graphics  screen) 


"O’ 


-end; 


—until  ch  in  l "P" ,'T" , "N", "Q'l; 
if  ch  =  "S'  then  Quit  :-  true 
else  Quit  :=  false; 

-end; 
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1 

2 

3 

4 

5 

6 
7 
B 

9  B- 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23  E- 

24 


Procedure  PrintBraphData;  {dumps  rootlocus  data  to  printer) 


var 

LineCount,i , j,k,l 

FirstPage 

List 


integer; 

boolean; 

text; 


Procedure  NewPage; 

— begin 

If  not (FirstPage)  then 
Hri tell ist ,chr (12) ) ; 


{formfeed  for  all  but  first  page) 


writelndist, '  POLE  LOCATIONS');  (write  titles) 

If  StepA  then  writelndist, 'A  =  ',anin:10:3) 
else  witelndist, 'B  =  ‘ ,bnin:  10:3) ; 

If  StepA  then  witedist, '  B  Pole') 

else  witedist, '  A  Pole'); 

witelndist, ’  »  REAL  IMAGINARY'); 

for  1  :=  1  to  60  do  writedist, '_');  (draw  a  line  across  page) 
witelndist); 

FirstPage  :=  False; 

LineCount  :=  LineCount  *  5;  (keeps  track  of  how  many  lines  on  a  page) 
-end; 


25 

26  B- 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


- Begin 

FirstPage  :=  true; 

LeaveEraphic;  (display  user  prompts  on  screen) 

C’rscr;  . 

Center  I  'Ht  TORN  ON  FAINTER  AND  ALIEN  FAPER  ***  ,1,10,80); 

TextColor (green); 

msq (  press  <P>  tr  Vint,  <F>  to  list  to  File  *,  <Q>  to  guit  print', 1,13); 
TextColor(WHlTE); 

msg ( ' *  File  option  prints  numbers  to  a  file  named  ,TH0PARAM.NUMa ' ,  1 , 17) ; 

msgCon  the  current  drive.  Browse  this  file  off-line  using  DOS  "type'  command' ,1,18); 

- - - repeat 

Read(kbd,ch);  (accept  user  input) 

If  (ch  -  'F ' )  or  (ch  =  T)  or  ich  =  ?')  or  (ch  =  p ')  then 

- begin 

if  (ch  =  F')  or  (ch  =  '{')  then 
B - begin 

I  assigndist/TwoFaram.NUtl');  (open  a  file  for  witing) 

1  rewritedist); 

E - end 

else 

B - begin 

I  assign  (list,  1ST: ');  (open  the  printer  for  printing) 

i  rewritedist); 

E - end; 

NewPaae; 

LineCount  :=  0; 

a:=  aitin;  b  :-  bmin;  (compute  2-parameter  values  for  printing) 

for  j  :=  1  to  5  do  (step  through  5  values  of  selected  stepping  parameter) 

B - begin 
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Date:  9/10/86 


Page  2 


For  k  :=  1  ta  50  da  {  smoothly  nave  through  the  other  parameter) 
— begin  (range  in  50  increments) 


lor  i:=  1  to  Order  +  1  do  (compute  each  coefficient  value) 
— begin 

inf  ix_to  jiol  ish (Inf ixArrayti), polish); 

Compute_Pol i sh (pol i sh , a ,b , Eval Array t  i ) ) ; 


-end; 


RootFinder (Order ,EvalArray,RealPart , ImagPart,0,0) ;  (find  eg  roots) 
if  stepA  then  witelnllist, ’  ' ,B:  10: 3) 
else  writelnllist, ’  ' ,A: 10:3) ; 

LineCount: =  Linecount  ♦  1; 

For  I:=l  to  Order  do  (write  Roots  to  page  printer) 

— begin 

witelnllist,'  '  ,i:2,  ’  ’  ,RealPart(i  ]:  10:3, 

’ ,lmagPart[il: 10:3); 

LineCount  :=  LineCount  +  1; 

If  (LineCount  mod  55)  =  0  then  NemPage; 


-end; 


if  stepA  then  b  :-  b  +  increm 
else  a  :=  a  +  increm; 

-end;  (for) 


(increment  one  parameter) 


If  stepA  then  (increment  stepping  parameter) 
—begin 


a;-  a  +  Del taStep; 
b:  =  bmin; 

-end  (next  step) 


else 

—begin 

b:=  b  ♦  Del taStep; 
a:1  aain; 

—end; 


— end;  (for) 
-end; (if) 


-until  ch  in  t T’ ,  f ' ,  Q' , ’q ‘ ,  P' , ’p '  1; 


close (list); 

Enter6raphic;  (brings  back  graph  to  screen) 
swapscreen; 

-end; 


(HfttHBttmm  END  of  PrintGraphData  Procedure  HimtHtiHimtimm) 
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